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MORE THAN FIFTY PROGRAMS 

By MICHAEL HOWARD 

So you want some more programs to key into your Sega? Well, this book 
has over Fifty for you to tap out covering everything from games to 
education, machine code and basic, short and long, (all programs will 
run on a 16k or 32k cartridge). Pages of programs, each one disected 
and explanations of how and why it works! 



INTRODUCTION 



Dear Readers 

It is encouraging to see that our fame is spreading across the 
Tasman and I welcome all you Aussie Sega owners to our club. 

Indeed we have heard of several fights* breaking out amongst 
local area user club members trying to get their hands on a copy 
of this magazine at their meetings. Steps are being taken to 
make this publication more available over there, so don't 
despair. 

In this month's issue we have some quality programs for you 
to type in. The Death of Philip Lloyd being a cluedo type game, 
and Jet Ranger for all you flight simulation fans. There are also 
a few useful programs that have been converted to run on 
SF-7000 disc crive systems. All in all a very informative issue. 

Happy Programing! 




S Kenyon 

DIVISIONAL MANAGER 
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OVERSEAS SEGA USER's CLUBS 
Camden Sega User's Club 

Contact Steve MacDonald 
2 Coolalie Ave 
Camden 2570 
Australia 



LOCAL SEGA USERS CONTACTS 



AUCKLAND CENTRAL SEGA USERS CLUB 

C/o 287 Broadway Furniture 

Newmarket 

Contact. George Shaw 

Ph. 547-543 



BOP SEGA USERS CLUB 

Sega 102B Hinewa Road 

TAURANGA 

Sec P J McDonald 

Ph 6482b a/h 

Tauranqa 



CHRISTCHURCH USER'S CLUB 

Contact Graham Rudman 
29 Primrose Street 
CHRISTCHURCH 5 



GISBORNE AREA USER'S CLUB 

Trevor Gardiner 
Ph. 83-068 HM 
or 87-175 WK 



HAMILTON SEGA USER'S CLUB 

P.O. Box 1548 Hamilton 
President: Mr Colin Bell 73-826 
Secretary: Mrs Anne Thrush Ph 437-312 
Meetings held fortnightly on Monday at Waikato 
Technical Institute in Room F129. 



HASTINGS AREA USER'S CLUB 

Contact: Robin 

8 Liverpool Cresent 

Flaxmere 

Hastings 

Ph 798-116 



NAPIER SEGA USERS CLUB 

Sec E.P. Lins 
41 Higgins Street 
NAPIER 



PUKEKOHE SEGA USERS CLUB 

C/o 4 Roose Avenue 

Pukekohe 

Contact: Selwyn 

Ph. Pukekohe 86-583 



ROTORUA SEGA USERS CLUB 

C/- 61 Devon Street 
ROTORUA 



TOKOROA SEGA USERS GROUP 

C/o 1 Pio Pio Place 

TOKOROA 

Contact Geoff Phone Number 67-105 

Tokoroa 



SOUTH CANTERBURY USERS CLUB 

P.O. Box 73 Timaru New Zealand 
President: Geoff McCayghan 
Secretary: Lloyd Van Der Krogt 
Contact Phs: 60-756, 61-412 TIMARU 

SOUTH COROMANDEL USERS CLUB 

P.O Box 183 

WHANGAMATA 

Contact; Sid 

Ph 58-775 Whangamata 

SOUTH TARANAKI MICROCOMPUTER 
SOCIETY 

DM Beale 
7A Clive Street 
HAWERA 

WELLINGTON USERS CLUB 

Contact: Shaun Parsons 

P.O. Box 1871 

Postal Central 

Wellington 

Ph 897-095 a/h 

Ph 727-666 work 

The above are contact names and addresses for 
Sega Users Clubs. If you wish to have your club 
advertised write to Sega Users Club P.O. Box 
2353, Auckland. 

If you have set up a local area user's club and you 
would like us to publish the details concerning 
your club please send them to us and we will 
publish the information for no charge 
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READER'S LETTERS 



DEAR EDITOR 

I have been recently doing a little 
programming with the use of sprites, 
and have come up against a brick 
wall!! My probelm is this . . . how 
many sprites can you have on the 
screen at once? 

Grant Philips 
Auckland 

EDITORS REPLY 

The Sega allows a very powerful 
method of sprite use ... it is a lot 
more powerful in fact than most 
other computers, here is how it 
works. . . You can have 32 sprites 
on the screen at any given time, the 
sprites on the screen can be chosen 
from a "bucket" of 256 sprites. The 
result of this is that ycu may define 
all 256 sprites and have 32 out of 
that 256 on the screen at 
once . . . here is a demo pro- 
gram ... it will show you that there 
are indeed 256 sprites. 

10 SCREEN 2,2=CLS 

26 FOR fi=@ TO 255 

30 fl$=HEK$( RND< 8 )*255 > 

40 FOR B=0 TO 2=fl*=A*+fi*:NEXT 

50 BL I NE < 20 , 40 >-< 45 > 50 > , , BF 

60 PATTERN Sttfl.A* 

7@ SPR I TE , C 20 , 20 ) , fl , 1 

80 CURSOR 20, 40= PRINT A 

90 NEXT 



DEAR EDITOR 

I am having a little trouble with the 
sound on my brilliant Sega. When 
I make some "white noise" by us- 
ing channel 5, and then use "tone" 
by using channel 4, the white noise 
disappears . . . could you please 
help me? 

PS: the last magazine was simply 
superb! Keep up the programs. 

Philip Tottle 
Titirangi, Auckland 

EDITORS REPLY 

When creating sound, you can use 
sound channels, 1, 2 and 3 and 4 
or 5, in other words 1,2 and 3 can 
be used as often as you like, but you 
can use these in conjunction with 
channels 4 OR 5 . . . not both. 

DEAR EDITOR 

Firstly, I would like to say what a 
great change has happened to this 
magazine, it is now really profes- 
sional and very helpful . . . thanks. 
The RS-232 section was very 
enlightening. Now to my problem. 
I am the owner of an SF-7000 Disc 
Unit and would like to know if it is 
possible to disable the RESET key, 
thus preventing younger ones from 



pressing it by accident and upsetting 
demo programs. 

Michael Bluenun 
Mosgiel 

EDITORS REPLY 

To disable the RESET on the 
SF-7000 unit, enter POKE 
&H66.&C9 at the start of your pro- 
gram. Note this will not work on the 
non Disc unit. 



DEAR EDITOR 

I would like to know if there is the 
possibility of a Machine Code book 
coming out for the Sega, as I've got 
BASIC all worked out and would 
now like to venture into machine 
code to write some games. 

Vicky Absword 
Tauranga 

EDITORS REPLY 

Just about every person out there 
has been wanting to know about a 
book on machine code and the 
answer in short is YES . . . very 
soon in fact!! Michael Howard, is at 
this very moment in time, working 
on one ... so watch this space! 



CONTACT PAGE 



Steve Monk 
4 Browne St 
Kawerau 



Andrew Stoddart 
45 Belford St 
Waverly 
Dunedin 
Ph 43-337 



D.G. Stembridge 
44 Mossburn Grove 
Kelson 
Lower Hutt 

Hillary and Geoff McLeod 
34 Price St 
Invercargill 
Ph 57859 



Brian Kelly 
Robert Road 
Otatara No 9 
Invercargill 
ph. 331 473 



R.D. 



Neil Bryce 

131 North Street 

Timaru 

ph. 88-434 



Darryl Gore 
36 Browning St 
Cambridge 
Ph 8556 



Andrew Mckenzie 
c/o Colyton School 
RD 5 Feilding Rd 
Colyton 



Fredrick Curd 
64 College St 
Palmerston North 




of 3>!>ifip Lloyd 





This program is one of those "Cluedo" style games 
where you play the lead detective and must find the 
murderer of Philip Lloyd. 

The story goes something like this . . . Philip decided 
to throw a huge party after getting a job ... I mean he 
was sick to death of just playing backgammon and table 
tennis, so he invited a few of his mates over for a few 
drinks. The party was going really well when all of a 
sudden a loud scream was heard . . . someone had 
found the body of Philip . . . not very alive, dead in fact!! 

This is where you come in . . . you are a lonely detec- 
tive, looking for a case to answer . . . when all of a sud- 
den the phone rings. . . 

I'm not telling you what happens next . . . but the pro- 
gam is like a book ... in that there are a few chapters 
to it. 

Okay, here is how to play it. Run the program, and 
after a short pause you will see part of a story appear 
on the screen, you will then hear a beep . . . whenever 
you hear a beep, that means the computer has paused 
to allow you to see the story on the screen . . . when 
you have read the stuff on the screen just press a key. 

When you arrive at the house you can ask all the 
suspects a maximum of two out of three ques- 
tions . . . the questions are . . . 

1) where were you at the time of the murder? 

2) how many people were with you at the time of the 
murder? 

3) what time did you hear of the death? 

You must now remember that the murderer will lie, so 
watch out for inconsistences in the replies from suspects 

The program is fairly straight-forward to use as it is menu 
driven, but the program plot is fairly complex, and don't 
forget there is a new story each time you play the game. 
Happy sleuthing!!! 
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1 <£» 1 O INPUTB$ 

1 <£»S:0 X=4C + M: G O £3 l_J O 1 "7' 1 O 

1 <£>30 I PL.EF T* < F3 «*i „ 3 > ~ L-EP T * < ^^> .. 3 > THEN 1 <b<£»0 
1 ^"^c-J PRINT"You are about t cz> njake the? =^i—r- 
e?s»t , v>*he?n ■• = F'Fc I NT^«* 5 "" ti- r e? a 8-=: s down S« oc3n-f : e?s 
sees " 
1 <£» S C» F'RINT" Yo i_i 1— d e d n_i c:: t i ir> m x ss wrong S< you 

^*t—r-e?st the? real mur d e?r csr ■■ a GOTO 1 £*«S>0 

1 <^> <^> O PRINT" V o u a 1- - r c^- s t t h e? m u r - dere r - ^< r- e? HF 
1 eo t that " 

l^^O X=^8"« L_ s C3 CJ S I. J lift 1 "7 I > > 

1 *=> Q O P Fc I r^J T " • You r~ d e? d u . c: t x k^j n xss correct aft 
er "• = #=»^ r F-R 1 NT " susp ec t s „ " 

1 ^^O F'R 1 NT £ PR I NT s PR I NT ■■ . - THE END - - " = END 
l^OCJ Z=INT~( RND < O > «-R > * 1 = RETURN 

1 "^ 1 O REST O R E : s f~ O R Y == 1 F O X s R E <F* 13 ^ * a N E X T Y r R E T U 
RN 
l'T'SO DATA cold "i-:: cJ-amt|3 9 hic>1: ::;, U ^.ticrh-vpv^iat 8« 

i-j ± r 1 d v* 

1 7" 30 De^Trt « .i..:j. i f ec? H..--JI i:a. ■•;-:, cold, t>e»is i r was warm, 

heer was t 1 at 

1 "7^l-0 DATA -F r i dge , TV , -f an 

1750 DATA oh el e a 11- ,. #fr 5C •♦ « *p ^ , t:» e es? pa- • 

1 *7"<E»0 D <^ T A v-ji €i t e? r~ , h -o n es, h u rrn 

1770 DAT<^% Heal fc n 8< EZ f F x cr x e?n c: >- , The? Beano, 

a E5 ^ cj a maga\z i n e? 
l^SO DATA si cjanm-e? C3HF The House !! , a vasecto 
my, a t> o o i=r e? up 

1 y""afO DATA c:.- 1 gar , c i CJ h u 1 1 , ci garette 
IOOO DATA ' Wei 1 it ax hi. " t a hrothe?! ! "* 
1Q1C» D#^TA " l*JI i 'y d o ■>••' ,, - :M ■"■ want to know? 1 
1 Q^ZO DATA ' Sorry i t " « any day o-F -F =" 

1330 Di^TA sawn - o -f- -¥■ is I" n cr> t cj i..x n , -spud g i_i n , r oc l-=: 

■e?t l^uncrhe? r 
6 



h e?f" r~b i a* «, b *....igr> tr.. ur e? 9 cj amfny 1 eg 

ol d A n t^j 1 i an. n, r-l x n i , +" ast Lamborghi 



cd 1. k ii :i ii » cj 



r ■ o C3 m -» X i v i ri cj 



r~ <z>cr> 



1 04O DATA 

1 sso data 

rii i 

X 0<£>o DATA h: i bchen 

mn gi ss t i_«. d v 

18*70 DATA r-l :i S s ! u-st: xe, lii i- •+ -Ften-F-F (the t>i_i t 

1 er~ > ff l ad v" W ** -l- l- *^ JI if :> 

1S80 DATA Or « Ku t t A i o 1= F -. Mr F' - Br ains, Merl i 

n < t h e cr -cr*. t. > .. V -ri'A. n e S3 & <a < "fc. I" m e V <St m C* x r- e > 

X B90 DA T A n on e? 9 on e ^ t: wo -, ti I » r~ ee -. -F oi_ir~ , -F ± "•*•■ e ., s 

i i< , s e^ v e n 

1900 data "T" s OS .. "7 8 O-^ , 7 s o<£> 

1 *? %. O DATA S he "" ss px e r~ ■ v e r" -fc e c J 8c I --: howe, it 

l^SO DATA She hag t3utc=l< fc.e»e»-t.h 8< acne 

1 *=? 30 DATA. She crosses her legs £< flashes 

h ^ t*~ thighs 

l^-O-O DATA Me sits nervously S* scz r- e\ ±. cz h es 
hi s fc> i_» m 

1 950 DATA"H e& h e 1 cr h e St &* *2i e* V SS «. : " F 3 " «fc •** a o n =" " * 

1 *&£*€> DATA Me? -f u.rti vely checks his -F 1 y 

1 *5> 7 O DATA She es i cj h e* deepl y 

1980 DATA M e r ' w e A cyi h 1. fc» Ul S» t ei t h e d h «n. i r~ 



l*P*PO DATA 
e>"t i me- ~" 
S!000 DATA 

»_i es e? r~ s 
2010 DATA 
dies 

;^-0 30 data 
S030 



She? says "Come t_ .k |p;h :8«s see? m 
Me? spi lis hi s dri n I-:: on h i 

"V izy i_j n -rro t::. i c: «=? he? i s w e? ar i n cj 



t r~o 



n o 



un 



S: O S O 

S O <£a- O 

ZZ. O 7 O 
*2 O €3 O 
2 O *3* O 



D#=^T A 
^O^O DATA Me 
er~ = " 

D A T A He 

D A T A M fc? 
DATA Me 

DATA 
DATA 



Y o t_i :: " r~ e? <=i big boy "" — he? ^ 
Me? n-g" i pn- -e? ss his monoc X e? 

stam m e? r~ es "" 1 ne ■%• e=» r~ "t crj n 



ays 
ched 



e» gu x r~ ms » m r n x es. c n c^ x r" 
es -ti a r* •*■- e* "t. o fa- i_i.r" r~ t- r ,_ r~ r~* 

1 X C !•-:. S3 h X ilTTl S3- e? I -F 

He S3- -en y es " " f '*1 M e e? CJ c.^ CK'j h^* !! ! 

She h ex es fc» 1 c ::> od on h ce r~ n e? cr l-=: 
2! 1 O O D A T A A «s "t: e» r~ t es -t: o cl e=^ <=* m h e? r~ fangs 
21 1 O D A "T A " " 'E> l-n e es ^~* y si 9 I h e* v e? g i ' s ^' e? n the? m e\ 
ster m ul cr h p- 1 e? a e» la r— e? " - " 

ZZ. 1 20 FOR 1 =0T01-2 z BEEF" = MFI X T 
Z2L 1 30 I F X NKEY*= " '" THEN2 X 30 
S 1 -^ O Fi IE£ T L J R M 

2 1 55 O Fc EZ S T CJ F< E£ = F ~ QF(A ■■ X X O X O O = F^: EZ A D A*lPRINTAS " 
" 5 Ai*i 

2 160 IFI tslKE:V"«->*= THEN2 X £»& 

ZZ % 7 O NEXT 
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MORE ON THE JOYSTICK AND MACHINE CODE 



By Ian Nicholson 



INTRODUCTION 

A previous article described a method to control movement of a sprite across the screen using a machine code utility. 

It was necessary to write the utility in machine code as the equivalent in BASIC would have been too slow in 
operation. 

One of the exercises at the end of the above mentioned article was to make the sprite move up and down as 
well as left and right. 

This article will show you how to move the sprite in any of the eight available directions. You will be also shown 
how to detect the operation of the fire button and collision of sprites all in machine code. 

The machine code of the program which will produc e sound effects resulting from the operation of the fire but- 
ton and collision of sprites. An overall description and dissection of the program is also given. 

Explanation of the Basic Program 

The BASIC program is in the main self explanitory using REM statements, however, further explanation is necessary 
on a few points. 

Line 20 (POKE &H8169, &HC6) sets end of memory pointer to &HC6FF. This prevents the BASIC program 
from interfering with the machine code routines (as can happen if extra commands are added tot he BASIC 
program). The top of memory pointer is set just below the start of the machine code routine. 

Line 40 (RESORE 70) makes sure that the READ statement in Line 60 reads the data in line 70. 

Lines 50 and 60 pokes the machine code data contained in line 70 into memory locations ?HC700 to &HC74F 
inclusive. Note that the &H is not necessary in the DATA statements as this is taken care of in line 60. 

Lines 80 to 310 poke in machine code routines as indicated in the REM statements within the program. Note 
that these could have been condensed into fewer lines but would make understanding more difficult. 

Lines 330 and 340 set the patterns for the two sprites used within the program. 

Line 350 selects SCREEN 2 (the graphics screen). 

Line 360 sets SPRITE 6 at location (50, 70) with colour 1 (black). 

Line 370 similarly sets SPRITE to location (99, 99). 

Line 390 calls the machine code routine which was poked in from line no's 50 onwards. This enables you 
to move SPRITE with the aid of a joystick plugged into prot 1 and also detects the collision of two sprites 
as well as responding to the fire button. An explanation is given later. 

Line 410 (OUT &.HDF, &H92) passes control from the joystick back to the keyboard. Note that the program 
returns from the machine code routine to this point on either the left hand fire button being pressed or on a 
collision between sprites. 

Line 420 looks at the value placed in memory location &HC7F0 during the operation of the machine code 
routein. The value placed depends on weather the fire button has been pressed or a collision between sprites 
occured. If the value is 16 (10 HEX) this indicates that the left hand fire burton has been activated and the pro- 
gram advances to line 470 to make a gunshot noise. Otherwise the program continues to line 450 to make a 
collision noise. 

On completion of either sound the program returns to line 390 to recall the machine code routine. 

Explanation of the Flow Diagram 

Figure 1 shows the machine code part of the program to move the sprite in any direction as well as detecting 
if the fire button has been pressed or a collision between sprites taken place. 

A brief explanation is as follows, (for a more detailed explanation see the previous article) 

1. From BASIC a call is made to the machine code routine. 

2. On entry to machine code the computer is initialised to read the condition of the joystick and fire button states. 

3. If no action has taken place from the joy stick then the program simply rotates about the first loopl. 

4. On a change of srte from the joystick the program is set further in motion until the state of the joystick is 
recognised by one of the decision boxes. 

5. From the appropriate decision box the program branches out to the right to obtain the current X and Y values; 
increasing or decreasing them as appropriate . 



6. On exit from the above a check is made to determine if a collision between the two sprites has occured. 

7. If collision has taken place then a return to BASIC is made and the appropriate noise made. 

8. On a state of no collision the program then enters a delay loop to slow the movement of the sprite down, 
otherwise its speed would be excessive. 

9. The program now returns to sample the state of the joystick again. 

Note that if the fire button had been pressed then the program will advance down to the lower decision box 
where on exit from the "YES PORT" will return the program to BASIC to make a gunshot noise. 

Machine Code 

To allow the program to work with either the III A or IIIB memories the machine code is inserted from &HC700 
onwards. 

The code has been written in a form such that is grouped in small sections to corespond to each block of the 
flow diagram. Additional comments are written against the machine code listing. These correspond to the com- 
ments within the boxes of the flow diagram. 

Hopefully this exercise has given you a further insite on how machine code programming can be used to further 
your use of the SEGA computer. 

For those of you so inclined, you could try to rewrite the noises, which are written in BASIC into machine code 
routines and incorporate this into the machine code used within this article. 

Finally, a word of caution. Make certain that the machine code contained within the DATA statements is typed 
in exactly as listed otherwise when the program is run a crash is likely. You have been warned. Happy computing. 



C700 


3E9B 


LD A,9B 




C702 


D3DF 


OUT <DF),AJ 


INITIALISATION TO READ JOYSTICK 


C704 


DBDC 


IN A, (DC) 


GET VALUE FROM JOYSTICK 


C706 


FEFF 


CP FF 


HAS ANY ACTION OCCURED 


C708 


28FA 


JR Z C704 


IF NOT JUMP TO C704 


C70A 


FEF7 


CP F7 


HAS JOYSTICK MOVED — ► 


C70C 


200A 


JR NZ C718 


JUMP TO C718 IF NOT 


C70E 


CDC0C7 


CALL C7C0 


GET X VALUE OF SPRITE 


C71 1 


3C 


INC A 


INCREASE X 


C712 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C715 


C3A1C7 


JP C7A1 


JUMP TO COLLISION ROUTINE 


C718 


FEF6 


CP F6 


HAS JOYSTICK MOVED •* 


C71A 


201 1 


JR NZ C72D 


JUMP TO C72D IF NOT 


C71C 


CDC0C7 


CALL C7C0 


GET X VALUE OF SPRITE 


C7 1F 


3C 


INC A 


INCREASE X 


C720 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C723 


CDD0C7 


CALL C7D0 


GET Y VALUE OF SPRITE 


C726 


3D 


DEC A 


DECREASE Y 


C727 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C72A 


C3A1C7 


JP C7A1 


JUMP TO COLLISION ROUTINE 


C72D 


FEFE 


CP FE 


HAS JOYSTICK MOVED T 


C72F 


200A 


JR NZ C73B 


JUMP TO C73B IF NOT 


C731 


CDD0C7 


CALL C7D0 


GET Y VALUE OF SPRITE 


C734 


3D 


DEC A 


DECREASE Y 


C735 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C738 


C3A1C7 


JP C7A1 


JUMP TO COLLISION ROUT INF 


C73B 


FEFA 


CP FA 


HAS JOYSTICK MOVED * 


C73D 


201 1 


JR NZ C750 


JUMP TO C750 IF NOT 


C73F 


CDC0C7 


CALL C7C0 


GET X VALUE OF SPRITE 


C742 


3D 


DEC A 


DECREASE X 


C743 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C746 


CDD0C7 


CALL C7D0 


GET Y VALUF OF SPRITE 


C749 


3D 


DEC A 


DECREASE Y 


C74A 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C74D 


C3A1C7 


JP C7A1 


JUMP TO COLLISION ROUTINE 


C750 


FEFB 


CP FB 


HAS JOYSTICK MOVED *- 


C752 


200A 


JR NZ C75E 


JUMP TO C75E IF NOT 


C754 


CDC0C7 


CALL C7C0 


GET X VALUE OF SPRITE 


C757 


3D 


DEC A 


DECREASE X 


C758 


CDE0C7 


CALL C7E0 


MOVE SPRITE 


C75B 


C3A1C7 


JP C7A1 


J.UMP TO COLLISION ROUTINE 


C75E 


FEF9 


CP F9 


HAS JOYSTICK MOVED J 


C760 


201 1 


JR NZ C773 


JUMP TO C773 IF NOT 



C762 CDC0C7 


CALL C7C0 


C765 3D 


DEC A 


C766 CDE0C7 


CALL C7E0 


C769 CDD0C7 


CALL C7D0 


C76C 3C 


INC A 


C76D CDE0C7 


CALL C7E0 


C770 C3A1C7 


JP C7A1 


C773 FEFD 


CP FD 


C775 200A 


JR NZ C78 1 


C777 CDD0C7 


CALL C7D0 


C77A 3C 


INC A 


C77B CDE0C7 


CALL C7E0 


C77E C3A1C7 


JP C7A1 


C78 1 FEF5 


CP F5 


C783 2011 


JR NZ C796 


C785 CDC0C7 


CALL C7C0 


C788 3C 


INC A 


C789 CDE0C7 


CALL C7E0 


C78C CDD0C7 


CALL C7D0 


C78F 3C 


INC A 


C790 CDE0C7 


CALL C7E0 


C793 C3A1C7 


JP C7A1 


C796 FEEF 


CP EF 


C798 C200C7 


JP NZ C700 


C79B 3E10 


LD A, 10 


C79D 32F0C7 


LD (C7F0),A 


C7A0 C9 


RET 


C7A1 DBBF 


IN A, (BF) 


C7A3 E620 


AND 20 


C7A5 FE20 


CP 20 


C7A7 C2BOC7 


JP NZ C7B0 


C7AA 3E20 


LD A, 20 


C7AC 32F0C7 


LD (C7F0),A 


C7AF C9 


RET 


C7B0 010003 


LD BC0300 


C7B3 OB 


DEC BC 


C7B4 3E00 


LD A, 00 


C7B6 B8 


CP B 


C7B7 20FA 


JR NZ C7B3 


C7B9 C300C7 


JP C700 


C7BC 00 


NOP 


C7BD 00 


NOP 


C7BE 00 


NOP 


C7BF 00 


NOP 


C7C0 21013B 


LD HL,3B01 


C7C3 CD322C 


CALL 2C32 


C7C6 DBBE 


IN A, (BE) 


C7C8 C9 


RET 


C7C9 00 


NOP 


C7CA 00 


NOP 


C7CB 00 


NOP 


C7CC 00 


NOP 


C7CD 00 


NOP 


C7CE 00 


NOP 


C7CF 00 


NOP 


C7D0 21003B 


LD HL,3B00 


C7D3 CD322C 


CALL 2C32 


C7D6 DBBE 


IN A, (BE) 


C7D8 C9 


RET 


C7D9 00 


NOP 


C7DA 00 


NOP 


C7DB 00 


NOP 


C7DC 00 


NOP 


C7DD 00 


NOP 


C7DE 00 


NOP 


C7DF 00 


NOP 


C7E0 CD442C 


CALL 2C44 


C7E3 D3BE 


OUT (BE), A 


C7E5 C9 


RET 



GET X VALUE OF SPRITE 

DECREASE X 

MOVE SPRITE 

GET Y VALUE OF SPRITE 

INCREASE Y 

MOVE SPRITE 

JUMP TO COLLISION ROUTINE 

HAS SPRITE MOVED 4- 

JUMP TO C781 IF NOT 

GET Y VALUE OF SPRITE 

INCREASE Y 

MOVE SPRITE 

JUMP TO COLLISION ROUTINE 

HAS SPRITE MOVED \, 

JUMP TO C796 IF NOT 

GET X VALUE OF SPRITE 

INCREASE X 

MOVE SPRITE 

GET Y VALUE OF SPRITE 

INCREASE Y 

MOVE SPRITE 

JUMP TO COLLISION ROUTINE 

HAS LH FIRE BUTTON PRESSED 

JUMP TO C700 IF NOT 

LOAD A REG WITH 10 

C7F0 LOADED WITH A (10) 

RET TO BASIC 

COLLISION ROUTINE 



RET TO BASIC 
DELAY ROUTINE 



JUMP TO C700 
NO ACTION 



3B01 HAS X VALUE OF SPRITE 
CALL ROUTINE TO FIND VALUE AT 3B0 
PUT VALUE INTO A REGISTOP 
RETURN TO NEXT INSTRUCTION 
NO ACTION 



3B00 HAS Y VALUE OF SPRITE 

CALL ROUTINE TO FIND VALUE AT 3B00 

PUT VALUE INTO A REGISTOR 

RETURN TO NEXT INSTRUCTION 

NO ACTION 



ROUTINE TO MOVE SPRITE 
MOVES SPRITE ON SCREEN 
RETURN TO NEXT INSTRUCTION 
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Flow diagram of Machine Code Routine 



FROM BASIC 



INITIALISE 
TO READ 
JOYSTICK 




Yes. 



(No 

Ha^ 
joystick 
v,move< 

Wo 

HaV 

joy stic \C 

onovect 



Tla> 

joystick' 
.moved. 



'Has^ 
UH Fire N 
Button 
jressed' 



Get X 

value of 
sprite 



.Yes 



las N 

joystick^ 
vmove( 



la; 

'joystick 
ioved> 



las 

joystick\X^| 
love 



(No 

Ha^ 
joystick 
jnovec 



Get X 

value of 
sprite 



Get Y 

value of 

sprite 



Get X 

value of 
sprite 



Yes 



Get X 

value of 
sprite 



.Yes 



Get X 

value of 

sprite 



Yes 



Get Y 

value of 

sprite 



Yes 



Get X 

value of 

sprite 



.Yes 



Increase 
X 



Move 
sprite 



Increase 
X 



Move 
sprite 



Get Y 

value of 

sprite 



Decrease 
Y 



Move 
sprite 



Decrease 
Y 



Move 
sprite 



Decrease 
X 



Move 
sprite 



Get Y 

value of 

sprite 



Decrease 
Y 



Move 
sprite 



Decrease 
X 



Move 
sprite 



Decrease 
X 



Move 
sprite 



Get Y 

value of 
sprite 



Increase 
Y 



Move 
sprite 



Increase 
Y 



Move 
sprite 



Increase 
X 



Move 
sprite 



Get Y 

value of 
sprite 



Increase 
Y 



Move 
sprite 



Place 

pointer in 

memory 



RET TO BASIC 
TO MAKE 
GUNSHOT NOISE 



Place 

pointer in 

memory 



Has 
J£—( collision 



RET TO BASIC 
TO MAKE 
GUNSHOT NOISE 

\ Delay I 





CARTRIDGES 



IB 



BASIC LEVEL 
*] MUSIC 
Q N/SUB 

ffl SAFARI HUNTING 
D BORDER LINE 
-; CONGO BONGO 
H YAMATO 
@ STAR JACKER 
CHAMPION TENNIS 
H MONACO GP 

CHAMPION BASEBALL 
3 SINBAD MYSTERY 
a VIDEO FLIPPER 
J PACAR 

□ POP FLAMER 
a CHAMPION GOLF 
; : EXERION 
n SAFARI RACE 
U LODE RUNNER 

□ BOXING 

□ ORGUS 
a FLICKY 

HOME/PERSONAL/FINANCE CASSETTES 



PRICE 

$175 

$125 

$39.95 

$39.95 

$39.95 

$39 95 

$39.95 

$39.95 

$39 95 

$39 95 

$39 95 

$39 95 

$3995 

$39 95 

$39 95 

$49.95 

$49.95 

$4995 

$49.95 

$54.95 

$49.95 

$59.95 



S FILE SYSTEM 

B CHEQUE BOOK RECONCILIATION 
D LOAN & MORTGAGE CALCULATION 
D ACCOUNTS RECEIVABLE 
ACCOUNTS PAYABLE 

□ 32K WORD PROCESSOR 

I PERSONAL RECORD KEEPER 

□ 16K EASY WRITER 

Q GRAPH AND CHART 

n HUCAL 

n SEGA BASE 

n LOGO 



$19.95 

$19.95 

$19.95 

$30 00 

$30 00 

$30.00 

$30 00 

$19.95 

$19.95 

$99.97 disc only spread sheet 

$9997 disc only database 

$72.22 disc only language 



GAME CASSETTES 

*! TOWERS OF HANOI 

HANGMAN 
I CITY-LANDER 

CUBE-IT 

BUGALOO 
D LASER BLAST 

MUNCHMAN 

ENTERPRISE ESCAPE 
d MARSMOBILE 

MARS ADVENTURER 

EMPIRE 
:_j KALAH 
J CHESS 

DEATH SATELLITE 
> BIT BYTE 
J THE HOUSE 
□ THE PYRAMID 
D CODE BREAKER 

BACKGAMMON 

LUMBER JACK 

TRAMPMAN 

SEGA GAMES PACK I 
n HELP! 

EDUCATIONAL CASSETTES 



PRICE 

$1995 
$19.95 
$1995 
$30 00 
$1995 
$1995 
$30.00 
$19.95 
$1995 
$1995 
$19.95 
$1995 
$19.95 
$1995 
$1995 
$30.00 
$1995 
$19.95 
$19.95 
$1995 
$19.95 
$1995 
$19.95 

PRICE 



BOOKS 

-TEACH YOURSELF BASIC GAMES PROGRAMMING $39.95 

MORE THAN 50 PROGRAMS FOR THE SEGA SC-3000 $24 95 

•SEGA BEGINNERS GUIDE $14.95 

-SELECTED BACK ISSUES OF SEGA MAGAZINE $ 6.95 



(Book and 
Cassette) 



ROCKET MATHS $19 95 

□ LEARNING ALPHABET $19.95 
. WATCH ME DRAW $19 95 

* SPELLING $19.95 

_ ADDITION $19.95 

: SUBTRACTION $19.95 

Z MULTIPLICATION $19.95 

□ SPRITE EDITOR $1995 
MUSIC EDITOR $19.95 
TYPING TUTOR $19.95 
LEARNING TO COUNT $19 95 
SHAPE & COLOUR QUIZ $19 95 

□ MUSIC CARTRIDGE DEMONSTRATOR$19 95 
D SEGA GRAPHIC DESIGNER $19.95 

GEOGRAPHY QUIZ I $1f 95 

" GEOGRAPHY QUIZ II $19 95 

D MATHS HANG UP $19 95 



I enclose payment 

D Cash D Cheque D Postal order D Visa 

NAME CARD NUMBER 

ADDRESS I I I I I I 



I 

I 
□ Bankcardj 

I 
I 



SIGNATURE. . 



CARD EXPIRY DATE 
CHEQUE NO 



1 



GRANDSTAND COMPUTERS LTD P.O. BOX 2353 AUCKLAND 
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First Steps into Artificial Intelligence 



M Howard 



The actual of concepts of AI are extremely complex . . . well let's face it, the human mind (with the possible 
exception of mine) is a very complex affair and any attempts at trying to simulate it are always going to be hard 
to understand 

So hopefully this simple . . . but interesting program will introduce you to some of the concepts of AI. 

The program acts as a database (well sort of any way!) ... it starts off by asking you to think of an animal. 
It then asks you if the animal you have thought of is a cat. If it is then press "Y" else press "N". If you typed 
"N" then you are asked to enter the name of the animal you thought of and a way of telling the difference bet- 
ween it and a cat. EG; 

Animal thought of . . . dog 

Is it a cat? 

No 
What was it? ... dog 

Give a question that is true for a dog and false for a cat. 

does it bark? 

From here you can set up what is called a binary tree of data, by setting up lots of questions and answers by 
simply answering "Y" or "N" and ending up with a great big data base. Experiment with the program a little . . . but 
don't forget this was one of the first AI programs ever ... so don't expect too much!! 

J. O DIM^tfi < 1 O 2 4 ) 
SO A* < 1 > as'^CAT" 
30 N= 1 

^O RR: I rvi~r ■■ Tt-i x rn k: of <=*!-> .san i m^a 1 " 
SO I F-rf=**i < 22 -W M > < > " " THEN 1 SO 
<£>0 R-Ft I NT "Is ± t <=3l "5 £**& < rvfl > 5 '" *P "' 

70 GDSUB170: IFFTHENPRINT" I got it ! ! " = GOT 
D30 

SO ^*<2-«-rNj>=^^<M> 

«5> O INPUT"Well w r~» ^a t is i t ' ' $ «^» * < ^ -*- r*4 -+- 1 > 
1 O PRINT"Gi ve m @ «a question t ri a t i-<* o i_i 1 cJ 
be? tr-uee -For- <sn " = £** < S«-|S|-i- % >;" --.-■' s R-R: I NT " E* 
i_it -false for .=* •";#=*i*<S*«-M> 
1 1 O I r-4R-LJT«^i* CN> = B0T030 
ISO R"F< I NTrf=*t* < N > ; "' P " 
1 30 GOSUB 1 70 

1 -0-O n = 2 *«- n -•- r- 

1 SO IFN<512THENHO 

1 <£»0 RIND 

±"7 X**INKEY*s I F 7 X **< > " V •• *^NO X *< > " N " TMR-N 1 ~ZO 

X GO R" = Or IFX*="Y ,, THENF=1 

190 RETURN 
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DISC BONANZA 



As many people know, the price of the SF-7000 disc unit has dropped to $695 and as you can guess the quanti- 
ty of sales has taken off drastically ... so to help all those with the SF-7000, a few of the Machine Code pro- 
grams that have appeared in previous magazines have been converted to work on the Disc system. So with 
no more woffle here's a list of programs . . . 

I^M %M0 *i* *£*■ *A* *Jj* *X* fc l ** ""Jj" ^X* "X" *X* ^a^ *A* *Jf* **i* ""A* 

'I* ^^* ^T* ^^^ ^^^ ^^^ ^^^ ^^^ ^^* ^T* ^^* ^^^ *T* ^^^ ^^^ ^^^ ^^^ 

Sprite Mover 

•^* •X* sX* *ii* *X* *l1 i* *X* *X j *X* *^^ *X* *A* *A* *JL* *ii* *** *i^* 

*t* *T^ ^^* ^TW ^^" *T* ^b^ ^^* *T* ^^*»^* *^^ ^T^^^^^^^ ^^^ ^^^ 

This program allows you to move all the sprites about the screen in any direction and at any speed. Touse it, 
just enter in the program, RUN it and wait for a short while, you'll then see 32 sprites all move about the screen. 

Refer to Jan/Feb issue for more details. 

ao DATA 1 1 , ^4 ,0,21 .„ O 9 3B -,, DD , 32 1 , O , F X s E 9 DO ,. <£> 

P 20 p r*3 * D D » 3 s , i „ 2 o -„ 2 o , D D „ 7* it. -.: p, o ,. :il:> o 9 ~z z r i,co, 

^>R" , O _, DD , BE , DD , 8-£> , 52 * JB*V „ 20 ,, 3 ", Lyii> ,, &&> 9 52 9 CD , <*>«5> 
, O , D3:;, E«E ., S3, CD , t*>E : « O , DB .„ ESE , DD , 0-£> .. 3 ., CD , <£>*? .,, 
OjDSyBE^B;, 1 *? , D D , 1 S* ,„ 1 O s, C E ? , C r -P 
520 FOR A«StHFOOO rO SeHRO-* 1 s REftDfti** s ROKEft 9 V 

ft l c • ■ s* r-» ■ * -«- • ft ^ :> s r-j E x. t 

30 FOR A = &eHF100 TO S«l IF180 STEI 

40 ROKE A * 1 

SO POKE A. -II- .1 9 A 

60 R'OKE ft-+-S s (253+INT < 1 C»#RND < 1 > > > II "HOD SS<£> 

70 POKE A+3, € 52 S3 « C MTf C lO*RND < 1 > > > MOD 52SS<£» 

SO NEXT 

*PO SCREEN 32, 2 s ( I M I I I ■■ - 1. j. 1 *1 , * " S5 s CL SB ; i : -f'VI'TERN 

S#0 , "" RES t O ,1 Q 1. O 1 O .1 Q 1 R R " 

1 OO ROR S = 6 O 5 s 

1 1 O SPR I TE E3 9 < JL SO „ 90 > » O s F.1MD < .1 > ■*«• 1 <£» 

± Z2LO MEX T 

i 3 <:> c ^ l_. i_ s« m r- c » o c * a C3 ( . ; . !i i : i ■. *■ ■■ . ■ 




SP-400 Printer Dump 

This one will let you copy the Hi-re screen to the 
SP-400 printer plotter. Refer to June issue. 

1 O DATAO , O 9 O 9 ED , 5B ,. O ,. RO ., CD , 1 ^ 9 <■-..< I , R EZ „ O „ CO 

, ED, 5B, O si R O .. 1 C j, £>* R , O O , S O ,A, 1 --I- , 3 E „ C O , D ^ , S O 

, ■** , 3S, 2 , RO ,, C*5> ;. ED , 53 -. O 9 II '"O ,„ ( : 3 9 5 : . RO 

SO FORA== 8* I- -A R O O O T O £< M R " " 2 d i 3 R IE ft D ^^ «•» a R O I < El ft ^ V ft I..... C 

■' 8<J-i "' HH-ft*. > s ME X T 

3 LPRINTCHR* <: 1S> s R< IF ,, Os POKE&HFOO 

1 ,. O = R- 1-=-: E 8< M R O O S s O s C ft It t .... & I I R O O 3 

-*0 l_R"R I MT "" M "" 5 If ■' 8*HF 0< >0) 5 " 9 "3 19 1 PEEK < S< 

HFOOl > = L-RR IMT •■ J I » O" a CftL_l &HI OOD a G0T040 
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[■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■i ■■■■■■■■■■■■■■■■■■m 

Hi-Resolution Scrolling 
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■i 

These two programs will let you scroll information on the Hi-res screen a pixel at a time . . . producing brilliant 
effects. Refer to June issue for more info. 



Right F-fl ;i — R es «=» S cz r~ ol 1 x ri ty 



F O , C S> 



1 <_> DATAO , 3E S O , 32 , O , F O , DO , 3C , 32 , O 
SO DATAE5,CD, <£>*5> , O , 3D 3 , OIL: , O , E J * C : r - 



30 dataes, co, 6F S o, DEe, e«e 



o 



e: i , c ■ •" 



-q-O DAT AF3 ,.<£:* , SO , OS , CD s, 1 S , F="0 , CB, 3F, F="S , -^"? r .. 3 
A , O , f=*0 , FE , O , 2© , 2 , CO , F8 , V 1. , CD , l,FO,7B,CD, 
C , FO , C 1 , 1 1, S, O , AF , ED' , 5A , JL O , DE 3 C *? 

5 O D A TAA si O , 2 1. , O , O , C S , E S , A F" , 3 32 , O ,»FO,CD, JL EI 
, FO » E 1 , 23 j, C 1 9 x O , F2 , C '' ■•' 

a>o o a ~r a <£> , <i=* , c 5 , c o , n -*i , f «: * , c i , j. o , f «y , c s> 

1 O O T = O = RES T O R E s F O IF: A — S-t F I F" O O O "I" 13 •£■< I 1 F O d» 1 = READ 
A«*ia B = VAL. < "&H"+A«) s T~T-t-E*s POKEA, 3B a NEXTs I FT 
< > 1 2557THENPR I NT " Er~ r ear- "" = E " IM E» 

1 OOO A*="9B7654321 O^EI . ' ' ■ " S •'!! 32 1 O^Q '''r"^''! 32IG9 
B765432 1 ■■ 

1010 SCREEN 2, 2= CLS: l r OI-:A- ] fOLifN CAsfO a CURS 
ORO , <_> = PRIMTMIDIi C A«, A , 1 > s CALL8cHFOSS: NEXT 
1 O 2 O F O R A = O T O ■*#■ 1 a C A L_ C S« I - * F O C 3 C 3 a N E - X T 



Le?-F ±i 



i — Res 



crol X i ng 



Di sc Versi on 



1 O D AT AO , 3E, O , 32 , O , FO , DO , 3C , 32 , O , F O , CS> 
20 O ATAE5 , CO , <£>«P , O , O 3 , BE , O , El 1 , C*P 
30 OAT ACS , CO , <£>F , O , DB , OC „ O , EC 1 , C*5» 

-q-O D#=*~TAF~3 , ^> , 20 , CS „ CO , IS, FO , CB , 2"7 , -FS, ^~7 9 3 
A , O , R O j, FE, O * 28, 2 , C E« , CO, -F 1 , CD, 1 , FO, ^ 8 , CD, 
C , F O , C x , 11,8,0, AF,ED,S2, 1 O , D El , C S?" 

Scl> DAT Adb , O , 2 1 , FO , O , CS , E.5 , AF , 32 , O , FO , CD , 1 
EC, FO, EC1 , 23 , C 1 , 1 O , F :: "2 , C*P 

<^> O D A T A ^> , £» , C S , CD, ^ '-1 , F O , C 1,1 O , F «3> , C9 
1 O O T = O a RESTORE : F O R A = S< M F O O O T O S< H F O •»£> 1 = READ 
A* a Et = VAC C ■■ &H " <- A * > = F "OKIE A , O a T =«= -T --*- JB a NEXT a I FT 
< > 127 17THENPRI NT "' Error "" a STOF 

1 O O O A*="Hello this i «B ^n test. . 12345^73^ 
O-------- 

1 O 1 O SCREEN 2,2= CLS a F- ORA=- 1 TOLEN < A* > = CURS 
OR247p O a R R I N T M I D * C A * ., A , 1 > a C A L l_ 8< M F~ O 58: N E X 
T 
1 020 F- URA = 0TG40 s CALL2.HF05B S NE X T 



Flip! 



!qiH 



This silly program will ... no I won't tell you! Just enter it type in RUN followed by a NEW then CALL &HF000 
and see what happens. CALL &HF000 to set things back to normal. 



1 O O A T A F 3 , 2 1 , O , 1 8 , 
E* , BE , E , O , <£> , <£> , 1. "Z , C E , 

^^ , O , CI , "T"*? , D3 , BE ... 1.. ! i 
C*^ 

2 O FOR A = &. HI F < : > O i; : J 
AC < " " «••: M ' ' -»- A * > a N E X T 



J. ; O , £3' , CS , CS , CD s, <£>F' , O , O 

1 c ? , JL O , F ]B , E 1 , E 53 a CS, CO, 
, c: 1 .., St: 5 , jb , "7 O , O l , 2 , OE , 

St I II 02*5" a READA^&s POKEA. V 




Purple People Eaters versus Man 

an exercise in ecological modelling 

M Howard 

Computers are designed tor serious as well as entertainment purposes . . . well this program is SERIOUS . . . Okay 
no need to cringe or hide behind the chair!! The program can in fact be quite funny and enjoyable to watch . . . here 
is what it does. 

You firstly select a number of Purple People Eaters . . . those who don't yet know what a PPE is ought to be 
ashamed!! and then select a number of humans. These bodies are then placed in an "Ecological Chamber". From 
now on the following rules apply:- 

1) Lots of humans lead to lots of PPE's, because PPE's eat humans (obvious really) . . .!! 

2) Lots of PPE's lead to humans dying out, as they all get munched! 

3) Lots of PPE's lead to no humans, thus leading to no PPE's. because if there are no people to chew on then 
the PPE's die out! 

4) Too few PPE's lead to an explosion in the population of humans, but too many humans die out due to lack 
of food and space. 

5) Etc etc etc etc 

As you can see this program can end up giving quite complex results due to it's many rules and regulations. 

Okay, now how do you run the program? Well it's really easy, firstly enter the number of humans and numbers 
of PPE's you wish to experiment on. Then just wait a while whilst the computer generates the original mode. 
From now on you just select the option displayed after each generation. These options include :- 

1) Generate a new cycle. 

2) Quit and make a new experiment. 

3) Draw up a histogram. 

4) Draw up a table of data. 

And they are all fairly self explanatory so I won't bother explaining them. Any way, I hope you like the program 
and find it of good use. But remember two things: 

A)If the program appears to be doing nothing then look at the values next to the PPE and people population 
indicators ... if there are no numbers then the Sega is working out the next generation ... If, on the other 
hand, there are some numbers there . . . press a key giving on the menu! 

B) Don't go about killing too many PPE's or you'll have a spokesmonster on your back from the SPCPPE (Socie- 
ty for the Prevention of Cruelty to Purple People Eaters!!!) 

1 O DIMJ£*<1S5> j, F ( 200 ) , S < -* O O > = E> E E F r N R C X > = I N T 

c_RNr>^< q > **-x_> _ 

SO CLS : PR I NTTAB ( 7 > = "Ecological model 1 i ng 



30 

-<q-o 

; e 
so 

OR 
£>0 
70 
SO 
«5>0 
1 O 
1 1 

1 3 
1 *V 
1 S 
1 <£> 
1 "7 
1 S 
1 <=? 
SO 
S 1 



F> 

I 

z I 

F* 

S< 

E 

I 

G 

G 

O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



re i nt 

NF'UT " Enter 
F="F r >SOORF r < 1 

RINT: INPUT 
1 THENSO 
R I NT = F>R I NT 
FIN K E Y ^ = " " " * 



i~» uirmbe r~ 
I — D E N -4 O 



T MEN-ZO 



a HF peop 1 e 

s» < 1 —so > 



< 1 —SO > 
Sal ES >SO 



OS 
EO 
E 1 
*=% C 
EO 
E 1 
*£* < 
C = 
I = 
EO 
I E 
I E 
I E 
I mm 

E C 



UB ~7 
E- J = 
= EN 
E 1 > 
RJ = 
= EN 
E 1 > 

I = G 

II = 
E J = 
& <! 
&\ < 
£* < 
I -*■ 
C > 



«po 

1 TOE 

R < 1 OO > -+- 1 1 a 1 E£* < F* 1 > TMEN 1 1 O 

= 10 O = N E X T JT 

1 T O S 

re < i oo > •••+- 1 i a i E^ < re 1 > T MEN 1 -<*-0 

= 3 = N E X T Or 

0SUB170: GOT O ZZ. ■■' : « O 

B«0 = FfsO 

** T O 1 ■ 3 = E O re K «« 3 T O 1 S a CURSO E" K .. J 

> = OTMENF-"Fc I NT a GO TOSS O 

> < 1 OOTHENPR I NT ■■ F> ■■ = S==S~*" 1 

> ==•■= 1 O O T l-l E N E R I N T ' " Ml " " 3 F~ «* F~ -*■ 1 

= nextk , a 

E s S <! O > «*S S RETURN 
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THEN2-*l-0 



:4h O A * = I N K E Y ^ .= IF" A ■*.= •' 

SO SCREEN 1,1 

60 IFA*=" " ANDQ < 5BTHIEN 3 I 

: "7 clJ IFA* — "H"T Fl E: N <£* "7" O 

;S O IFA*="E"THE N 2 O 

: 9 o i e a «■ = ■ ■ t ■ * t i i E n s « ? o 

;00 BEER2 = G0T02- £ l-0 

! 1 O CUF^SOR2 1 « 5 = ER X.N T "" *" S 



O 



CUF<SOR. 



£> s r~- r I n 



320 FORI=l 
3 3 IFA C I > 

3 -=* o x db« x n ~r < 
> 7 I oo > 



TO 1. 1 O 
1 OOORA 



< X > = 0THEN-3--*l-0 



< A < I — 1 O > -*-#=! < x -*■ 1 o > ~»-A < X 



> .-.(.- ^ < i -*- 1 > 



3<£>0 
3 7 O 

380 

^ o o 

^F 1 O 

420 
430 

450 
4£»0 

470 

-q-oo 

490 
5 O O 
S 1 o 

5^0 

5<bO 



I — 
I -+ 

I -+- 
I — 
= f^ 

X 

I > 



o > 
o > 

> == 

X > 



= 1 O O T M E I'M A 
«■ 1 O O T II — I E N ft 
:l OOTI IENA < 
1 OCffHE-INA 



X 



I FA 

I FA 

I EA 

I EA 
A C I 
E = E — 

I EA < 

A < I > =3 

R 1 =FNR < 1 OO > + 1 1 a * 

N E X T X 

FORI=l 



< 
C 

I 
i X 



1 o > ~ o 

1 o > «o 

> aaasO 

> =o 



< «£> T h dee: n -a -% o 



1 > ==: 



> = 



O 1 

no 



I EA ( X 
N E X T I 

E = E-*- I NT < F 7 

IFF- O T H E N 5 

I F" E > 1 O O — Si T H E N F = 1. O O — S 



J. O 

the:na 
A o 



< x > =o 



TOE = E 1 *«ENR < 

> = O T H E N iA < R 1 



EOR J=* X 
IFA < R 1 
NEX TO 

c—e-fr- i = o=c 

C3 O S U E* 1 "7 O 

CURESOE2 1 , 
S = CURSORS 1 _, <£> = 
570 EORI=l TOl 
S S O 13 O T O 2 - 1 * O 
S«S>0 CLSsPRINT 
<£»0 PRINT" G 
£» 1. O C = 2 = E = 
£»20 F-R I NTC- X s. 
630 C=C+1 

<£> -* O I E C > Q T H E N E R I N I 
= GOSUB^^O:: 0-G--1 S GO 
<£» S O I E I N K E V * == 
4b£»0 G0T0620 
670 SCREEN 2 v 
I NT " F"F"E =" S V-SB 
680 I— I NE < 20 , 2 



1 OO > "~ 
> = 1 OO 



1 1 



■■—• il; 


f=. 1=5. 
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N I 
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Cl 


; I 


ER 


: x n 
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A < 
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> = 


:0 
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,.' 1i 


< 


X 
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• • 


F~" 
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•E 


" f v' r 


S 




L' 


1 A 


N 



RS0R20 ^ S a F-R I NT 

-+- x x o > = O a N EXT x 



M 



I AiJB < ■£:> > ; Hi t. C > 



"" End ■■ 

T0240 



= l : 



T n^Et < X X > 3 

OR X =--OTO-^ 



E < C > 

OO s NEXT 



T H E N <£> S O 

URS0R90 



2 s C I— S b 

MAN "" 

O > — < 2C 



s COLOR 1 ^Z = RR 



< 2 O , 1 *■■** O > — < 






S-* , SO > = L_ I NE 
> — < 2S^ , 1 BO > 

«£>«PO CURSOR 1 3 ;, Q2 = F-"E X N 1 '" O 
I NT " O "' = CURSQRO , 20 s RR X NT 
RR I NT " 70 " 

■700 COL.OR X 3 s CURSOR X 
l_OR-* = CURSOR 1 1 3 „ 1 S2 s 



1 = l_ I NE < X O 
1 2 O > = L_ I N E 

s CURSOR X 3 

20 '" = CURSO 



„ SO > — C 2 
CIO.. IS O 

„ 1 S2 = F-R 
R S 9 12 = 



1 O ;. Q2 

F' R I N T 



R R I N 
MAN" 



'» 



PRE "" ^ •' = CO 



"7 1 O 
■720 
7-3-0 
-7-4-0 
,13, 
750 
< I > > 
7<ebO 

37^0 

c: „ M , 
7-SO 

790 



1 TOO 

> >-70THENF 

> >20THENS 



EOR I = 
I E E C I 
I ES < I 
l__ I NE C 20 + 4* I , 
BE 

L_ I N E < 2 O +- ^ -»*• I , 
> , ^ „ BF 
N EEC X *T 



X 



I 

X 



— "7 O 

*2 *2 -*-• -q -« 



r X , 79 



i 7 «? > 



2 HH <* -3*- X 



I 79- 



COl—OR 1 
T , E ■' 
SOTO 2 •-* O 
CLS: CURSORS 



s CURSOR7S , 1 OO = F-R X N'l '" RR 



-M-S < X > > > 

< „ SS~7^* E 

3S - - sp 



RSOR 1 



= RR I NT 



L 



3 a F"R 



s EOR" I=4TD I 3 = 



■— ! " s CU 
CURSOR 
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2,1 = RR I MX " ' u - "" a NEXT a CURSOR2 .. 1 ^ = 

RRIMX" ! ! " s CURSOR2, Oa PRINT-PPE' 

=» >v <es M A IvJ • ' 

BOO CURSORO , 2. 5 a RR X MX "" sspcr — Ne>; t: cycle", , "" M 
— Histogram" , , " ' X — X abl c=? a f : d *a.-fc <sk * * 9 * ' " EE — M e? x tl 
E x p» e? f" i men t * " 

8 1 O CURE5 0F<2 ± , 3 8 RFC I MXC 1 = CUF^SOR x 5 , 5 a RR X MX 

»■ R R E * *=» ' ' 5 E* a O U R S O R JL S ., £» a R R -I M X " R ess opl e? " 5 F 1 = R EI X 
URN 
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An example of the Histogram 
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Address 



THREE GRAPHIC ADVENTURES FROM AUSTRALIA 

k A 



Enclosed — cheque, postal fjj 
order 

Charge my D D 

No 

Expiry Date 

Signature 
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Hypno-Qix 




M Howard 



The following program is great for those lazy days when you feel like zonking out in front of the computer and 
having your mind blown!! 

As it stands, it is very simple ... a line will bounce around the screen at great speed and makes lots of nice 
sounds as it hits the walls ... to stop it either wait 11 second or press a key at any time. 

As the main body of the program is machine code . . . both ROM and Disc versions are given. All the best, 
just RUN the program and off you go . . . !! 

Disc version 

1 O DATAO 9 O , O , O j, O 9 O 9 O .„ O 9 3 „ II-:: i> 9 5F ,. ft«£» 9 1.3 3 , 7 I " 9 
3 E 9 lO;, 32, FF ,, FE , :l ft v E O- 9 ** h , 1 2 9 O p C S» 

2 O Dft T ft 3ft - F E m E EI 9 E E a 2 O .. 2 O „ £» ^ X> 3 ,. 'Z F ;: , ' 3 O „ 3 2 v E 
F- „ EE =. 2A : . -* , EO 9 ED p 5S13 9 «£» =. F O ,, 5E „ I » £» » O ,. CO p S^C p O 
p <£> p ** , X 1 , O 9 EO p !2 ± 9 *± 9 EO „ "^E » EE =, S> .„ DC „ O , F"0 , '• ! '■ , 
1. 3 p X O p E <£> p <£> ., 2 p 2 X .. 3 , F O 9 X X 9 X , F" O , "7 E 

30 DATAFE p Ee ft „ D**»- , Q „ EO 9 23 9 2 3 p 1 3 » 1 3 9 X O p F '1 p •£> 



i - -a , F"0 



j i 



o .« 



E 



3. s IF <5> , 0> II b, O ,,. FO „ 



3 p 1 3 - p 1 3 , 1 O p E<«* , £» 9 j --H- p 2 1. , -3 ., EO p 1 1 =. O p F"0 p ^E p X ft p 
O X p "7 y" , .2 3 9 1 3 p X O v E0 p 2= ft ., -4 -«5> ,, ft* : ., F IL „ X O ... DO ; , C D p «£> 

p X , E E p O p C ft p X «5> p F O „ C *5> 

^ O T — Ob FORA = &c M E O O O X O S< Ml F O O C s R E £ * O »"• % «-t • ;::: V = V ft L_ < 
"' S<t-i " -*■ ft* > z F"OKEft ... V s T = r-*-V s tsJEX r = I li - - I 4066 I I I 

E tM F" RINT"Er r~ or ■ " B & I O F " 

SO DEFF r NR < X > ==• X MT' < FStMO € O > ** X > s V»0 

<£> O F O R ft = S< Mi F O O O T O £••: Ml F O O 3 a F" O K : «::£: ft ? F II M H r < < ^> > z I F F M 
F: -C X O > >!Sftr^lOF"EEK < ft > THEMPOKEA p 256 - F 'EE I C ft > 
"7 O M E X T = X ■■ FT 8"hJ X> < - X > 

QO P0KE&HF004, EMR; C2XO> -*-2 s ['"OKE^HF 03 , FNR 
C S><£» > -+-20 = P0KE&HF006 9 , EMR (2 1 O > "-20 : POKE&HFOO 
7, F r NR <.*=?&>> -+- 2 O 

«5>0 S»RND < O > -^-FtlvIO <: O > a T«* X X O s F"ORft««0 1 CJ 1 O = ©OLJI^J 
OXpTp X"S=S: = S-fr-S= T" == T" Hh £3 = IM E X T s E O Fi ft == X ^^> "F O O E3 I" E F" — 
X = SOLJHNJX> 1 p p ft z F4E£X T 

X OO BCFTEEN2, 2 r COLORFNR < X ^ > p 15, * FNR < 1 ":> > a O 
l_Ss TIM E * » - " " O O a O O a O O " " 
X XO CALL&HFOA9S SOUNDO: C30~l D60 

Rom Version 

1 O DftTftO p O , O , O , O p O p O p O p & p EE> , 5F p ft<£> p 133 p y-E , 
3E , X O p 32 , F^E 9 EE 9 X ft , EO p ^^ , X 2 , Q , C S> 

20 DftTft3ft , EE , EE , FE p 20 p 20 p <£» p X>3 p 7F p 3C3 , 32 , E 

E , EE , 2ft p 4 p EO p ED p SB ,6, FO p 3E , X , <£> , O p CO , E X , 3 

*5» , <£» , -* p XXpOp FO , 2 X , ^ p FO „ 7E p EE p <=? p DC , Q p EO , 23 

, X 3 p X O , F<£> p<£>„2p2X,5, FO , XX, X , FO , ^E 

30 DftTftEE , Bft p D-4- p O p EO p 23 , 23 p X 3 9 13, X O , F^ p ^ 

p2p2Xp-^p EO p X X p O , FO p ^E , FE m E*5> p D^ ,8, FO p 23 , 2 

3 , X 3 , X 3 , X O p F^* ptfbp-^p2Xp-^p EO , X X , O p EO , ^E , X ft , 

E3Xp"7 r ^ ir p23p X3, Xc.-* ;i |^Op3ftpOE,^^,FE, XOpDOpCD,B 

<£3p^2pFEpOpCft, 1 *5» , EO m C^ 

*t- O T == O a E O E ft = &< M E O O O F 0?<HF08C: R E ft D ft tfc = \./ = ^ ft |__ C 

" «<M " -«-ft* > = FOKEft p V = "T = -r-«-V a NEXT a X E~T< > X 4 3*^^>TH 

ENPRINT"Error " = STOF" 

SO DEFFNR < X > = I NT" < RIMD < O > -^ X > 

<£»0 FORA = &HFOOOTO&HF003 a F"OKEft , FNR C <^> > = I EEN 

R < XO> >SftNr>F"EEK <ft> TMENF'OKEft, 2S<£> — REEK <ft> 

TO NEXT z X=RNE> < — X > 

00 F'OKE^MFOO^ , FNR < 2 X O > -»-20 a POKESeHFOOS , ENR 
< S><£> > -+-SO a P0KE&HF006 p FNR C 2 X O > +20 = ROKES^MJEOO 

T p ENR < S><£> > ^-2c:> 

*^0 S = RND < Q > +RND < O > a T== X X O a FORA = OTQ X O a SOUN 

DX,T, XS= S = S-^£3= T-=T-*-S = r-IEXTa EQRft= X STOOS TEE — 

1 a SOUND X , , ft= NEXT 

X OO E5CREEN2 p 2 = COLORFNR <X^> , XS„ , ENR C X 3 > a C 

l_ S a T I M E * = ' " O O s O O = O O ' ' 

X XO CALL2-.HF019: SOUNDO: G0T060 
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Program of the month 




Danny Van Kan 

Do you love to blast away innocent little planes? If so then this great program is for you . . . ! AH you do is enter 
the program EXACTLY as listed . . . that includes the REM's at the start of the program as this is where the 
machine code is stored. To operate you simply type in RUN, wait a small while then off you go . . . The controls 
are simple . . .You use a Joystick, left and right and fire . . . simple. 



1 c"> REM ^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 
^^^^^^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

^^^^^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt^ 

^^^^^^rtrtrt rtrt rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

^^^(^^^^^^^^^^^^^^■^^^ 

gGn^^^^^rtrtrtrtrtrtrtrtrtrtrt 

so REM &&£*&&£h&&fhf*&&&f*f*f*&&&&&&&&^&& f: *£ : * f *** 

^^^^^^,-^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

,c*,^^^^^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

^^^^^^^^^rtrtrtrtrtrtrtrtrt rtrt rtrtrtrtrt rtrt rtrt rtrt 

^^,-^^^^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 

^rf^^rtrtrtrtrtrtrtrtrtrtrtrtrtrt 

3<-> REM &&£*&&&&&&&&£*&/*&f*&&&&&&&&&^^ f ** : *< : *** 
^^^^^^^^^^^^^.p^rtrtrtrtrtrtrtrtrt 

^^^^^^ ^ ^^^^^rtrtrt rt rtrt rtrt rtrt rt rtrt 
^^^^^^ft^rtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrt 
^^^i^^^rt rtrt rtrt rtrt rtrt rtrt 

40 GOSUB S90 

SO D I Mrt* <•£».. 1 6 > 

<£» O G O T O S O O 

70" MAG3: SCREEN 

STORE 

QO COLOR: 1 S .. S- j. < O 

90 PATTERNS* O » 



rtrt 
rtrt 
rtrt 
rtrt 
rtrt 
rtrt 



rtrt 
rtrt 
rtrt 
rtrt 
rtrt 
rtrt 

Art 
Art 
Art 
rtrt 
rtrt 
rtrt 



CLS s PR I NT CRIP* < 1 <£> > = RE 



1 OO PrtTTE£PNS*t=02: » 

ilO PATTERNS#04, 

ISO PrtTTERNS**06 , 

1 3 O P ATTERNS#S » ' 

140 PATTERNS#9 ! . " 

ISO R'rtTTERNS** I O , 

160 PATTERNS*^ X m 

170 COLOR14: 
by MEGrt SORT'" 

ISO CURSOR 1 OO 



O > — < SSS , 1 S> 1 ^ , S _ 

O O O O O O O O O O ^ O P O 7E " " 

" OOOOOOOOOOOOOO 1 R ' * 
" " O 3 O "7" O 7 1F3F3 R O R O 1 ' * 
■■ OOSOCOOOEOR~SR~EEO " 

o i o i o 3 o :z o ^ o ^ o P 3 e " 

FF-FFFF87030F 1 EO 1 " 
■ ' O O O O S O O O -3- O ^ O E O E S " 
.. FEFEFEC280E0F0 " 
CURSORS O , -q = PR" X NT "' JET RrtNGER 



1 Q O = 

O 9 ^ , < 3 S j, 

o » <*!• » < ^s , 

3 S » O > — < 1 

SS , 1 7 6 > 



190 COLOR 1 

ZOO COI—OR 1 

2 1 O l_ I NE C 

220 I— I NE < 

230 SC = 

2^0 PATTERNC#48 

2SO PATTERNS#32 

2£»0 PATTERNS#33 

270 PATTERNS#34 

20O PATTERNS#35 

290 PATTERNS#2S 

300 R'rtTTERNS**^*? 

31 O PATTERNS#30 



PRINT "SCORE = 

> — < 1 ,C P O , 1 -<1 - > 

1 76 > — < 1 90 , 1 *V I > 
S> O , 1 y -l > , 1 O j, B 

-— < 1 S? O , I *P I > - 1 O - B 



*"> 



^o-^o^ortococeavo ■■ 

IZ -* 3 O S *l ZZ'JZ. ± tt O R" 1 E B R 
1 R 1 7 S 5 ^ 1 "^ O O 1 O 1 • * 

e o o o c ^* s ^r> ± e o p o r b 

E 0*5*00130 0020 1 " 

-F 4= OOQOOOOOOOOOQO 

OOOOQOQOSO-F -f " 

^ o ^ o ^ o *i o -^ o ^ o -* o ^ o 
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3 2 O F" ft T T" E R N S 4* 3 1 , " " 4 O 4 O 4 O 4 O 4 O c= O " " 

33 P ft T T E R N C 4* 3 9 , " O O O O O O O O O O O O O O O O ■ ■ 

340 PATTERNB#16, " 070C3F3360C 1 COCO " 

350 F'ftTTERNS4* I ~7 9 "643D" 

3<£>0 PATTERNSttlO, " F86426S50 1 C 1 4593 " 

Z5TO PATTERNS#19, " CCBO ■■ 

380 PATTERNS# 1 3 , " 40e0e04040e0a0 " 

390 P ft T T E R N S 4* 1 55 „ " 2 O "7 O "7 O -2 O 2 O "7 O 5 O ' " 

4 O O F" ft T T E R N E> 44 2 O , ■ ' O O O 3 O O O C 1 F3E3F 3 F • " 

41 O FATTEF^NS#2" 1 , ,u 1 EB " 

<*20 PATTERNS#22, " 009SDSE AFE3EBA6C " 

4- 3 O PATTERNS#23 , ' " 3 O " " 

440 EOR I«S TO IX STEP 2 

450 ft = I MT C RND < 1 > *c-254 ) +1: 0== X NT < RND < 1 > -**2E34 

> -+- i 

4£»0 SPR I TEE I , < ft , EO * I <£* , 14 

4 "7 O SPRITEI + 1, < ft g. E* > .. 2 O g, 1 ".:.:> 

4SO MEZ XT 

490 FOR I « 1 S5 T O 2 9 S "1 ' E F" 2 

5 O O A==INT (RND ( 1 ) * 2 5 4 )+l: E* » INT (RND < X > -*- 2 5 4 

> -+- X 

5 X c:> SPR I TE I , C ft , E* > , X ■£> , X 4 
B20 S F" R I T E I -+~ 1 . 9 (A,B) ,2 O v X 5 
S30 NEXT 

540 SPRITEO, < 1 20 , X SO > , S, X 

5SO SPR I TE 1,(1 NT C RND < X > ■a*-2S!S > , O > » © , X 
560 SF'RI TE2, ( 1 20 , X 9 X > , 12, XO 
5 "7 O F" O K E S^ HI <5> A O O , O 
5 O O F- O K E S« M 9 A O ft , O 
590 OUT X 27,220 
<£>00 OUT X 2 7" , 245 
<£> X O CALL&H984F 

620 IE PEEK ( &rH9AO A ) ^?,H35 THEN 7 5 
630 OOTO 640 
<£> 4 O P O K E %e M 9 A O O , O 

<£>5 VPOKE&H3BOS, 191 s VP0KE&H3B09, OF "EEK < S«H 
3 BO X > 

£><£> O IFVPEE K < S< H 3 E* O 4 > > X "3 O T H EE N •£> X O 

670 8C—SC+29 a CURSOR 1 40 , 1 SO s PR I NTCHRi*.- < 5 > = 
CURS0R140, X S O = F " R I N T £5 C 

£» O O P O K E Se El 3 Et O <£> , 3 2 a E O R I = O T O 3 a V F" O K ES^H3B O 7" 
, £=> a VPOKEStHSBOT , 1 O 8 NE X T 
<E»«?0 0QSUEc730 

"7 O O O F" O K E 8< M 3 B O <£> „ X *£» a V F" O K EE S< Fl 3 E* O "7 , 1 4 
"7 X O SRR I TE X e. < I NT C RNO < 1 > -**2S5 > , 1 ^2 > , O „ X 
720 OOTO 5 ^ O 

730 OUT X 27- , 220 a EOR A = 240 1 02S5 a OUT 1 27" , ^ a EO 
F: I =OTOO a NfE. X T a NET X T a RETURN 

740 N= 1 27 a OUTM ^ 1 S*? a OUTN , 19 1 = OUTN 9 223 a OUT 
N, 255 a OUTN;, 23 X a OUTN, 240 a F0RB = 0T0 15: EOR ^ 
= i. 92 TO 2<Z>7 a OUTN 9 f\ s OUTN „ B a OUTN , 240+B a NEX 
Ta NEXT a RETURN 

7 5 O COI—ORIS,!;, < 7 5 „ ,r P .£> > - C X *7 O , X O "7 > 
760 LINE (72, 95 > - < 192, 1 10> , 1 O „ E« 

770 F-R I NT CMR-i** < 1 7 > a COLOR 15a CURSORSO , 1 OO a 
F* R I N T ' ' O ft M E OVER" 
7SO OUT 1 27" „ 8<HOF 

7'9 EOR I =0 TO 500 a NEZ X 1 : VPOKE&H3BOO, 208 
a FORI "0T0999 a NE XT 
SOO SCREEN I » 1 a CI 
S 1 O COLO R 4 , X5 

S 2 O CURSOR 5 9 & : PR 1 N T u " T v P> '^ i ""^ fc - *"» o s ^ : XXX 
X €=v«=I " a F'FC I NT 

S30 F"R- I NT a PR I NT '" ' 1* Easy "' 

S40 F-R I NT a PR X NT " -2^1 mposs i t> X 

^ " 

S 5 O PR I NT a I N F > U T ft 

860 IE ft= X THEN POKE "S< El 9 ft OO , O s POKES<H9ftC X , 
<I> a P O K E&H9AC2, O a O O T O "7 O 

B70 IE ft = 2 THEN POKE&H9ACO , &HCD a POKES«H<Pft 
CX , &HODa POKE?.H9AC2, &*H9© 3 GOTO 70 
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880 GOTO QSO 

B90 RESTORE 930i EOF;: Is&H9808 TO 84H98FA: R 
E^E> ^% = POKE I » P% s NEX T J 

«?00 RESTORE <5>QO s EOR I«&H9908 TO ScM«5>*^E:3sR 
EftO #=* = POKE I , *=% s NEXT 

910 RESTORE 1 O 3 O : FO R X == Sc 1-1 *5> £* cS O T O Sc Ml 9AD5: 
READ *=%= POKE I .. rf^ = NEXT 
•P20 RETURN 

S>3 Orf^Ti^k 8cHO, ScMO , ReHBC , 8<H3B , &HEE , &HF3, ScM 3 
E , & Mi 1 , Sc M 32 » S< Ml O , Sc Ml «? Q .. Sc HI 3 E „ Sc Ml 2 O , Sc Ml 3 2 , Sc M*? , Sc 
M«9>0 , &H2 1 , ScMO , ScM3B , &H22 , 2.HA .. S<M*S>Q , &H2A, &HA 
, 8eH98, &HCD, 8«H32 , ?'.H2C , 2..HDB , ?.HBE, ScM3C , &H32 
, ScMO , ScH*?8 , &H2A , S'.HA , &H98, ScMOO , s<M4 4 , S<H2C , Sc 
H3A, ScMO, &H98, S<Hir>3 9 i &:HBE, ScM2 1 , ScM*=* , &H9S 
«?4 O^TiP* &tH34. 8c HI 34. &H34. ScM3-*l ■ . S«M2B . S«M3!F=: « SS, 
H20, S*MDE, &H2B, ScM3!3, &HFB, &HC8, S<ME , ScM 1 „ ScM<£> 
, ScM 1 , ScM 1 O , ScMEE , ScMO , ScH20 , &HF9 , ScM 1 O , &HC4 , 8c 
MO , &HO , ScMO , ScM3E , &H3C . 8«H32 , ScM2<£» , ScMS^O , S<H3E 
, 8cHC , S<H32 , ScM 1 S> , ScM'S'O , 8cH3E , 8cHA , &H32 , ScM 1 4 , S< 
MS>£3 , ScMOO , ScMO , ScMS>Q , StH3E , ScM 1 d> , 8cM32 , &H 1 4 
^SO O^T*^ 8<H<?S, &HCD , &HD, ScM«5>© , ScM3E , 8«H20» ScM 
32 , &H 14, &H9B , &HCD , ScMD , ScMS>Q , ScMF r 3 , ScM2 1 , ScM4 
, 8<H3B, ScMOO, &H32, &H2C , S/HDB, ScMBE , &HD6 , &HCO 
, ScMC2, ScMOE , ScM^O, ScM2 1 , ScMS., ?<H3B, ScMC3 , SeM*?0 , 
&H9A , &HED , SeMSR" , ?.HCB , 8<H27 , ^HD3 m &HBE , &HFB , 
Sc H C 3 , &H8F, S« H99, Sc Hi 2 <£* 9 8« M *P Q ., 8« M 3 E g. S< M 4 , «« M 3 2 , S< 
M 1 S> 

*P<£>0 D^T^% &H*?S, 8<H3E , ScM 1 , ?<H3A, £-<MIS: , &H9A 9 8<HD 
±> 9 £*M1 , S<MC;2 5i ScMIQ , S«I-I*S>«5> , ScMO , ScHIO , 8c MO* &HO, ScHC3 
, ?<M^»S , S-MS>S> , &H3B , S^MCD , »«M32 , &H2C , ScMCc^ , &H6 , 
«<M32, &H9, ScM*?^, 8<M2 1 , S<MS , ScH3B, ScHCD, &H32, £<M 
2C p S-eMOB , &HBE , S«M4'7 r , &H3A , S«M*5» , S<M*5*A „ &H90 , 8cMI=" 
B , 8,HC2, ^HE6, 8«H98 , &HF3, S«M2 1 , S<.MC , CeH3B 
*9~yO DftTftScMCO , S<M44 , &H2C , &H3E , S<MO 1 , &HD3 , ScM 
BE, &HC3, &H60 , 8«H9A P StHEF , 8<MEE , SeH20 5 ScMCO* 8«M 
2 1, S<MQ , S^HSE^ , &HCD , &H44 , S<M2C: , &H3E , ScMCO , g<ME> 
3, 8<HBE, £<M3E, 8<MO 9 StH32, SeHB , &H9A P &HFB, ScH3E, 
8«M3D , 8tH32 , &H26 , &H98 , &H3E , ®<MO , S<M32 , ScM 1 S> , S< 
H9B, &H3E 9 ?^H 1 , ScM 3 2 , ScM 1 4 , ScM*5>0 ^ &HCD , &HD , S*M«5> 
Q , S<MC3 , O , ScM*?*? 1 

9SO D(^T^ &HCD , ScM JL O , 8«H49 , &H3A , S«H6 1 , ScM<?4 , S< 
M D «^» , Se M 1 O , geHGCji &H2A, Sc M «5> C P , S< M 3 &> , Sc H65, &H94^ S< 
MOcS. , &H20, ScM CC , &HSO , S«H99 , &M3A , S<H.6 6 , ScM*5>4 , Sc 
MD<£>, &H20, &HCC, 8«H6S S ScM^<5* » &HC3, ScMS2 , StH98 , Sc 
MO , &HO , &H3A, ScMO , ScM*y<5» , &HD& , 8eH 1 , ScMCQ , &H3E , 
ScM 1 , ScM 32 , ScMO , S«H9A ^ &HF3 , ScM2 1 .. ScM 1 , ScM 3 13 , ScMC 
D 

•9S^O 0*^T*=* &H32, &H2C, ?<HDB, &HBE , ScMOcS» , ScM 3 g. ScM 
2 1 , ?<H9, &H3B, ScMCO, ScM 44 9 &H2C, ScMO 3, &HBE, &HF 
B , &HC9, ScMO , ScMO , ScMO , ScMO , ScMO , ScMO , ScMO , ScMO , Sc 
M 3 E , Sc M 3 £> , Ss M 3 2 , Sc M 26, £*: M *9 O , Sc M 3 E , Sc Ml 1 , S« M 3 2 , Se M 
1 *5> , 2<H98 , ScM3E , ScM 1. , ScM32 , ScM ± 4 , 2<H9e , &HCD , ScMD 
, 8<H98, &HC9, ScMO, ScMO, ScM3E , ScM3C, ScM32 
1 OOO T7&T&* ScM 26 , ScM*? 3 , ScM3E , ScM 1 , ScM 3 2 , ScM 1 «=? , Sc 
M^Q, ScM3E, ScM 1 , ScM 3 2 , ScM 1 4 , ScM*? & , ScMOD , ScMO » &H9 

, &HC9 , &H6, ScHFF , &HDB , 8eHBF , ?^HE6 , &HEF , &HEE 
, &H20, ScMOO , ScM 1 O , &HF7 , &HC3 , &HD6 , ScMI^O , ScM 4 1 
, S<M4 1 , ScM4 1 , ScM4 1 , ScM4 1 , ScM4 1 , ScM4 1 , Scl-14 1 , ScM4 1 
, &H3E, &H3C, ScM 32, &H26, 8<H98, fcH3E, ScM 4 *. &H32 B 

ScM 1 <=? 

1 O 1 O T^f^~Tf^ &H98, Sc M 3 E , Sc M X , Sc M 3 2 , Sc M 1 4 , &H98, Sc 
MOD, ScMO, ScMS>Q, &HC3, ScMOO, &H9A, ScM4 1 , ScME3, ScM 

2 1, ScM4 , S<M3B , ScMOO , S«M32 , ScM2C , ScMlOB , &HBE , ScMO 
, ScM 32, 8<H9, &H9A, ScM 2 1 , ScMO, &H3B, ScMOO, ScM 3 2 , Sc 
M2C , ScMDB , ScMBE , feH47 , 8<H3A , SeM«5» , &H9A , S<H90 , ScM 
EB, SeHCA, ScMC4, &H98, &HF3 9 SeM2 1 i. &H4, &H3B, ScMO 
O 

1020 D^T*=% ScM32, ScM20 9 ScMDB 9 ScMBE , ScM30 , ScM32 , 
S<H9 , ?cH9A,, ScM2 1 , ScMO, &H3B, ScMOO, 8eH32 a ScM20 , ScM 
OB , ScMBE , ?<H47 , ScH3A , ?<H9 , ?<H9A , 8tH90 , &HFB , ScMO 
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1 o 



C3 
A, 
1 p 

1 , 

1 o 
S<M 
M*^ 
4 1 
4 1 
, S< 

, «< 
1 O 
RI4 
H4 



&HE6 , 
30 O ^ 

c, ^mcz 

, S<RI2C 

&<RI4 1 , 
&cH4 1 
40 D#=» 
2"^ , SeH 

„ S<H4 1 
, S<RI4 1 
MC9 , S< 
H4 X 
SO r>& 
1 , e<H4 
1 , S*M4 



S^RI^B, 8«MC3 , StHC4, S*RI*5>G 

T^ ?<HF3, S.H2 1 , 8*M5 , &H3B, £<RIIOD , 2<RS2T.2 
D, ScHDO, £<M«P^, £<RI2?1 „ 8«H«?, S.H3B^ StHCD, 
, ?/HDB ■. £<MBR , &H90 , S<MR2 , S< l-l 3^ *^> „ S«M*=;>A ^ 
, ?<H98, £-RID.£», S-cM-3-q -, g*MO , S-rRIR^ , ScRIBO , ?< 
£< M -** 1 .. S« M 4 1 , £ < Ml 4 1 , S« M 4 1 I. S< R« 4 1 , &H4 1 , g< 
S<M4 1 , &H4 1 , &M4 1 s 8tH4 1 , 3*M4- 1 , S«M4 1 , £< 

"T^ S^RICD , &TH4 4 , 8«t-l2C: , &HED, 8«H5F, £<RIC 
D3, 2-.RIBR.. S-.H3A , StHA, StH*?A, 8eH3C 9 3«H32 
, &HD6 , 8*H35 , S.HCS , &HC3 , i.H8E „ jLh^PO , 
, &c HI 4 1 , S< M 4 1, 8« HI 4 1 .. S< HI 4 1 , S* HI 4 1 p 8* HI 4 1 , 
, «<M3A , 2.HB , ScM^iOl , S«M30; „ «/H32 , &RtB , S*M 
HD6, «< HI S> O „ S< Ri 4 1 , 8< H41, &< M 4 1, S« M 4 1 , &e H! 

~r«^ S.HCD, 8<HD, «<M«5>Bp 8<HC3, &H9B, S<M9S 
1 , &H4 1 , «< H 4 1 , €< M 4 1 , &e H4 1 , ®< H 4 1 !« «< H 4 1 
1 , £<RIDB , SCRIBE , ?<HD6 , 8«H1 1 ^ , SeM47 ^. &HC9 



RIS> 
H^ 
M4 

4 1 



<^^^ Flashing light 




The following piece of code is another one of those 
stupid programs that I tend to write when I'm bored!! 

All it does is flash 8 big sprites on the screen in time to 
some data you are feeding in through the cassette port, 
the data fed in may be music if you want a disco light 
effect!! 



Here is 

stands, 
second 

1 O 

E^R, 
B .. 1 

1 , 2? 
io, 

" &<!-* 
30 
4 O 
SO 
«£*0 
"TO 
SO 

, rf^-** 

«5> o 



how to use it. Firstly enter the program as it 
(don't forget if you have a Disc Drive to use the 
lot of data), now feed in your data into the 

TD&-T&J2 «4..<£>p"7,A,GpE> 

C1,CB,21, 
DD .. REE , RR , 
412 , IO, IPS , 
•£> , ~Z^EL 9 4R , ~7 

1 , IB, 7A, B 
O O O T O &s H R * J* 
T 

Z = C O L... OR1 



j 4 
20, 1Z 9 C B 

o , e: t2 , r> b 

o , CD, c ? o 

■O .» C3 Jzp , ^2 *I> 
ER- ,11, O 
FORA = ««HI 
• " -+- *=* ^ > - NEX 
S C3 F< Ei E£ rvl 2E^ , 



R" .Pi T T E£ R: rsj £J 4+ cl> p 
R ^ "T~ T E£ F\' |NJ S 4t 1 , 
PATTERNS#2 , 
R <^% X T ERNS =♦* 3- ;. 
X=l = R"OR;^=l-"r 
S O > ,0,Os x — X 
C3 i^i L_. L. ?- H R O O S 



"7FFFF 
" RR FFF 
" FEFFF" 
" RRRRR 
OS = FOF< 

-»- 1 a rvj e: x 



cassette IN port. If you have a SP-400 printer plotter 
connected then switch it OFF!! Now RUN the program, 
and after a short delay you'll see the sprites all flashing 
in time with the music or data (when you turn the 
cassette on of course!!) . . . Voila! 

Note . . . you can alter the position of the sprites to 
wherever you like, because they are positioned in BASIC 
by lines 20-80. 

Hope you like it.!! 

,e,«&> s .£3,E» O , OB , E>D , RE , 

11,0,4, IB, >^ , B23 , 2D , R 

so , 2 , ob p e j. , cs , ^> , q , -p-& 

Ol ,. £y , B , 2 1 , RR , EIR- , CB , 4 
Q , CD , <^0 , 42 p CI , CB , 39 , 
3; , 2 O , R B * C: 23 , B , R" O 
54 = FvEADA* = POKEA , \S£*l_ C 

, 1, , 1:C L _ Ei = M AG 3 
FFF R-R-F-R-R-R-RR " 
FFFF R R" R R R 3^ R " " 
RRRRR RRRRRF"" 

R R R R FFFFFFE" 

B=1T04:SPRITEX, (-45*B 
T'B , & 



T>± <==>c: Modi -f i cat 



x cd n s 



1 o r>^nr^i2 , ^ , <s , ^ , ^ , o . i> , c , ,^ , e , ez , c» , db , e>d , rr , 

RR , 20 , 2 p dm , C X p CB , 2 1 , 11,0,4, 1B,7A, B3 , 20 , R 

B , 1 c_j , RO , DB , DD , RRI , RR , 20 , 2 =, C B , C2 1 „ C5 , <^> , O , ^S 
=■ E p O , CD, ^ E .„ O , 1 O , R B ,. Ol , <£> , B , 2 1 , R R , R R , CB, 4 1 
, 23 , CTS _, SO , <£> , 7-R ;. -^R ^ ^Q , CD , «^R , «Z> , C 1 , CB ^ 39 ^ 1 O 
, RR , 11, 0,4, IB, ~7& m &:-. .. 20 , RB , C3 , O , RO 




W *- 




* 
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Machine Code Routines 



Once again, here is the next exciting instalment in the "Machine Code for those who want to know" series. 

This time around I'll give you a whole host of Machine Code routines. They are all fairly self explanetary and 
should pose no real problem to those amongst you who wish to get into machine code. 

Note that the only version you need be interested in are the ROM:PAL ver 1.0 and the Disk ver l.Op. Note 
the latter is for those with the SF-7000 disc drive. 

Also note that Michael Howard is working on a really easy to understand book on machine code for the Sega, 
and this will be available shortly. So keep your eyes peeled and watch this space! 



Text screen display 

(Common to all ROM and Disk versions) 

(1) NAME OF LABEL: 



(2) ENTRY POINT: 



(3) 



DSPTX 

39E5H (ROM:JAP ver 1.1) 
39E5H (ROM:USA ver 1.0a) 
39E5H (ROM.PAL ver 1.0) 
0084H (Disk ver 1 Op) 
0084H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To display the text screen. 

INPUT DATA: None 

OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



(4) 
(5) 



Graphics screen display 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



DSPGRP 

39E2H (ROM: JAP ver 1.1) 
39E2H (ROM:USA ver 1.0a) 
39E2H (ROM:PAL ver 1.0) 
0087H (Disk ver l.Op) 
0087H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To display the graphics display. 
(4) INPUT DATA: None 

OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES* None 



(3) 



(5) 
(6) 



Text screen back colour set 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



TXTBCL 

39D0H (ROM: JAP ver 1.1) 
39D0H (ROM: USA ver 1.0a) 
39D0H (ROM PAL ver 1.0) 
008AH (Disk ver l.Op) 
008AH (Disk ver l.Oj) 



(3) PURPOSE OF THIS PROGRAM: 

To set a back colour of the text screen. 

(4) INPUT DATA: A = Colour code (0 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



- 15) 



Text screen character colour set 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



TXTCCL 

39D3H (ROM: JAP ver 1.1) 
39D3H (ROM:USA ver 1.0a) 
39D3H (ROM: PAL ver 1.0) 
008DH (Disk ver l.Op) 
008DH (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To set a character colour of the text screen. 

(4) INPUT DATA: A = Colour code (0 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 
CHANGES: None 

(8) FLAG CHANGES: None 



15) 



Graphics screen "0" colour set 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



GRPCCB 

39D6H (ROM:JAP ver 1.1) 
39D6H (ROM:USA ver 1.0a) 
39D6H (ROM:PAL ver 1.0) 
0090H (Disk ver l.Op) 
0090H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM 

To set a back ("0") colour of the graphics screen. 

(4) INPUT DATA: A = Colour code (0 - 15) 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 
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Graphics screen "1" colour set 

(Common to all ROM and Disk versions) 



(1) 

(2) 



NAME OF LABEL: 
ENTRY POINT: 






(3) 

(4) 
(5) 
(6) 

(7) 

(8) 



GRPCCL 

39D9H (ROM:JAP ver 1.1) 
39D9H (ROM:USA ver 1.0a) 
39D9H (ROM:PAL ver 1.0) 
0093H (Disk ver l.Op) 
0093H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To set the colour of character, dots or lines ("1") of the 

graphics screen. 

INPUT DATA: A = Colour code (0 - 15) 

OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 

CHANGES: None 

FLAG CHANGES: None 



X = 



Text screen scrol 









(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



SCRTXT 

39F4H (ROM:JAP ver 1.1) 
39F4H (ROM:USA ver 1.0a) 
39F4H (ROM:PAL ver 1.0) 
0096H (Disk ver l.Op) 
0096H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To scroll a specified block of the text screen up by one line. 

(4) INPUT DATA: 

A = Upper limit of block to be scrolled 
L = Lower limit of block to be scrolled 




H-> 



L-> 
23 



Block to be scrolled 



(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 
CHANGES: None 

(8) FLAG CHANGES None 



Dot plot in graphics screen 

(Common to all ROM and Disk versions) 



(1) 
(2) 



(3) 

(4) 



NAME OF LABEL: 
ENTRY POINT: 



PLOTPT 

39EEH (ROM:JAP ver 1.1) 
39EEH (ROM: USA ver 1.0a) 
39EEH (ROM:PAL ver 1.0) 
0099H (Disk ver l.Op) 
0099H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To plot or erase a dot in the graphics screen 

INPUT DATA: 

D = Y (vertical) coordinate (0 - 191) 

E = X (horizontal) coordinate (0 — 255) 

A = (0: Erase) 
(l:Plot) 



Y = 




X = 255 



(5) 
(6) 

(7) 

(8) 



Y=191 



OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 

CHANGES: None 

FLAG CHANGES: None 



Line draw/erase in graphics screen 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



PLOTLN 

39F1H (ROM: JAP ver 1.1) 
39F1H (ROM:USA ver 1.0a) 
39F1H (ROM:PAL ver 1.0) 
009CH (Disk ver l.Op) 
009CH (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To draw or erase a line in the graphics screen. 

(4) INPUT DATA: 

D = Start Y (vertical) coordinate 0—191 
E = Start X (horizontal) coordinate — 255 
H = End Y (vertical) coordinate — 191 
L = End X (horizontal) coordinate — 255 
A = {= 0:Erase) 

(<>0:Draw) 
B = Mode ( = 0:Dot connection) 
(< >0:Side connection) 

(Dot connection) 

Used when drawing a line with the LINE statement. 



• • • 



• • • 
(Side connection) 

Used when painting the enclosed region with the BF specifica- 
tion in the CIRCLE or BCIRCLE statement. 

• • • • 
• • • • 
• • • • 
• • • 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: Called by CALL instruction 

(7) REGISTER CHANGES:None 

(8) FLAG CHANGES: None 



Sprite colour set 



(Common to all ROM and Disk versions) 



[1) NAME OF LABEL: 



(4) 

(5) 
(6) 



SSPRCL 

42D8H (ROM: JAP ver 1.1) 
42D8H (ROM:USA ver 1.0a) 
42D8H (ROM-PAL ver 1.0) 
00AEH (Disk ver l.Op) 
00AEH (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To set a sprite colour for a specified surface. 

INPUT DATA: A = Plane No. (0 - 31) 

C = Colour code (0 — 15) 

OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 



(2) ENTRY POINT: 



(3) 
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(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



Sprite name set 



(Common to all ROM and Disk versions) 



(1) 
(2) 



NAME OF LABEL: 
ENTRY POINT: 



SSPRNA 

42D5H (ROM:JAP ver 1.1) 
42D5H (ROM:USA ver 1,0a) 
4295H (ROM .PAL ver 1.0) 
00BIH (Disk ver 1 Op) 
00BIH (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM. 

To set a sprite name for a specified surface. 

INPUT DATA: A = Plane No. (0 - 31) 

C = Sprite name (0 — 255) 
(5) OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 

CHANGES: None 

FLAG CHANGES: None 



(3) 
(4) 



(6) 
(7) 



(8) 



Sprite position set 

(Common to all ROM and Disk versions) 

(1) NAME OF LABEL: 



(2) ENTRY POINT: 



SSPRPS 

42D2H (ROM: JAP ver 1.1) 
42D2H (ROM:USA ver 1.0a) 
42D2H (ROM:PAL ver 1.0) 
00B4H (Disk ver l.Op) 
00B4H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To set a character colour of the text screen. 

(4) INPUT DATA: 

A = Plane No. (0 - 31) 

D = Y (vertical) position — 191 

E = X (horizontal) position — 255 

(5) OUTPUT DATA None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 






Text screen clear 



(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 



(2) ENTRY POINT: 



TXTCLR 

430BH (ROM: JAP ver 1.1) 
430BH (ROM:USA ver 1.0a) 
430BH (ROM: PAL ver 1.0) 
00BAH (Disk ver l.Op) 
00BAH (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 
To clear the text screen. 

(4) INPUT DATA: None 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 
REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



(7) 



Graphics screen 8-bit plot 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL 

(2) ENTRY POINT: 



(3) 



PLOTB8 

4A27H (ROM: JAP ver 1.1) 
4A27H (ROM. USA ver 1.0a) 
4A27H (ROM:PAL ver 1.0) 
00EDH (Disk ver l.Op) 
00EDH (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To plot a 1-byte (8-bit) pattern in the graphics screen. 

(4) INPUT DATA: 

D = Y (vertical) position — 191 
E = X (horizontal) position — 255 
A = Pattern 

(x ' yl oot«ooo§ 

(When A is 31H) 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



Graphics screen character plot 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



JAP ver 1.1) 
USA ver 1.0a) 
PAL ver 1.0) 



PLOTCH 
4A2DH (ROM: 
4A2DH (ROM: 
4A2DH (ROM: 
00F3H (Disk ver l.Op) 
00F3H (Disk ver l.Oj) 
(3) PURPOSE OF THIS PROGRAM: 

To plot a character pattern in the graphics screen. 

INPUT DATA: 

D = Y (vertical) coordinate — 191 

E = X (horizontal) coordinate — 255 

A = Character code 

OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



(4) 



(5) 



Graphics screen character size set 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



GRPCSZ 

4A30H (ROM: JAP ver 1.1) 
4A30H (ROM:USA ver 1.0a) 
4A30H (ROM:PAL ver 1.0) 
00F6H (Disk ver l.Op) 
00F6H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To set a size of character to be displayed in the graphics 
screen. 

(4) INPUT DATA: 

A = (0: Standard size) 
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(l:Double size) 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



Graphics screen cursor position read 

(Common to all ROM and Disk versions) 






:d 

(2) 



NAME OF LABEL: 
ENTRY POINT: 



GRPCRD 

4A33H (ROM: JAP ver 1.1) 
1.0a) 
1.0) 






(3) 

(4) 
(5) 



(6) 
(7) 
(8) 



4A33H (ROM:USA ver 
4A33H (ROM: PAL ver 
00F9H (Disk ver l.Op) 
00F9H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To read the current cursor position in the graphics screen 

INPUT DATA: None 

OUTPUT DATA: 

A = Y (vertical) position — 191 

E = X (horizontal) position — 255 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 

CHANGES: D. E 

FLAG CHANGES: None 



Graphics screen cursor position set 

(Common to all ROM and Disk versions) 



(1) 
(2) 



NAME OF LABEL: 
ENTRY POINT: 




CRPCWT 

4A36H (ROM:JAP ver 11) 
4A36H (ROM:USA ver 1.0a) 
4A36H (ROM:PAL ver 1.0) 
00FCH (Disk ver l.Op) 
00FCH (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To set a cursor position in the graphics screen. 

INPUT DATA: 

A = Y (vertical) position 0—191 

E = X (horizontal) position — 255 

OUTPUT DATA: None 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



(3) 
(4) 



Graphics screen back-colour set 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



GRPBCL 

4A3FH (ROM: JAP ver 1.1) 
4A3FH (ROM.USA ver 1.0a) 
4A34H (ROM:PAL ver 1.0) 
0105H (Disk ver l.Op) 
0105H (Disk ver l.Oj) 



(3) 



(4) 



PURPOSE OF THIS PROGRAM: 

To set a black colour for a specified block of graphics 

screen. 

INPUT DATA: 



A 
D 

F 
H 
L 



Colour code 

Vertical position of upper-left corner — 191 
Horizontal position of upper-left corner — 255 
Vertical position of lower- right corner — 191 
Horizontal position of lower-right corner — 255 



(E,D) 
















(L,H) 



(5) OUTPUT DATA: 



None 



(6) 
(7) 
(8) 



CALLING SEQUENCE: Called by CALL instruction 
REGISTER CHANGES: None 
FLAG CHANGES: None 



Graphics screen clear 

(Common to all ROM and Disk versions) 

(1) NAME OF LABEL: 



(2) ENTRY POINT: 



GRPCLR 

4A42H (ROM: JAP ver 1.1) 
4A42H (ROM:USA ver 1.0a) 
4A42H (ROM:PAL ver 1.0) 
0108H (Disk ver l.Op) 
0108H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 
To clear the graphics screen. 

(4) INPUT DATA: None 
OUTPUT DATA: None 
CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



(5) 
(6) 



Graphics screen block erase/paint 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL; 

(2) ENTRY POINT: 
(GRPERS) 



GRPERS (Block erase) 
GRPBFS (Block paint) 

4A4BH (ROM:JAP ver 1.1) 
4A4BH (ROM:USA ver 1.0a) 
4A4BH (ROM:PAL ver 1.0) 
010EH (Disk ver l.Op) 
010EH (Disk ver l.Oj) 



(GRPBFS) 



(3) 
(4) 



4A96H (ROM: JAP ver 1.1) 
4A96H (ROM:USA ver 1.0a) 
4A96H (ROM:PAL ver 1.0) 
4E72H (Disk ver l.Op) 
4A72H (Disk ver l.Oj) 
PURPOSE OF THIS PROGRAM: 
To erase or paint a block of graphics screen. 
INPUT DATA: 

D = Vertical position of upper-left corner 0—191 
E = Horizontal position of lower-right corner — 191 
H = Vertical position of lower-right corner 0—191 
L = Horizontal position of lower-right corner — 255 
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(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



Graphics screen back drop colour set 

(Common to all ROM and Disk versions) 



GRPDCL 

4A4EH (ROM:JAP ver 1.1) 
4A4EH (ROM:USA ver 1.0a) 
4A4EH (ROM:PAL ver 1.0) 
0111H (Disk ver l.Op) 
0111H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

In the graphics screen, to set a colour of back drop. 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



(3) 



(4) INPUT DATA: 

(5) OUTPUT DATA: 

(6) CALLING SEQUENCE. 

(7) REGISTER CHANGES: 

(8) FLAG CHANGES: 



A = Colour code 

None 

Called by CALL instruction 

None 
None 



Graphics screen point read 

(Common to all ROM and Disk versions] 

(1) NAME OF LABEL: 



(2) ENTRY POINT: 



(3) 



READPT 

4A5IH (ROM:JAP ver 1.1) 
4A5IH (ROM:USA ver 1.0a; 
4A5IH (ROM:PAL ver 1.0) 
0114H (Disk ver l.Op) 
0114H (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To read the pattern generator table for a specified point 

in the graphics screen. 

INPUT DATA: 

D = Vertical position 0—191 

E = Horizontal position — 255 

OUTPUT DATA: A = (0:bit "0") 

(l:bit u l") 

CALLING SEQUENCE: 

Called by CALL instruction 

REGISTER 
CHANGES: None 

(8) FLAG CHANGES: None 



4A8AH (ROM: PAL ver 1 
012FH (Disk ver l.Op) 
012FH (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 
To list out text contents. 

(4) INPUT DATA: DE = Start line No. 

HL = End line No. 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



0) 



(4) 



(5) 
(6) 



(7) 



Listout 



(Common to all ROM and Disk versions) 



(1) NAME OF LABEL 

(2) ENTRY POINT: 



PUTLST 

4A8AH (ROM:JAP ver 1.1) 

4A8AH (ROM:USA ver 1.0a) 



One-character key entry 
(for INKEYS function) 

(Common to all ROM and Disk versions) 



ill 
(2) 



NAME OF LABEL: 
ENTRY POINT: 



INKEYS 

42F6H (ROM:JAP ver 1.1) 
42F6H (ROM:USA ver 1.0a) 
42F6H (ROM:PAL ver 1.0) 
0168H (Disk ver l.Op) 
0168H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM: 

To receive one character of key entry. 

(4) INPUT DATA: None 

(5) OUTPUT DATA: 

A = Character code (00H for no entry) 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 



Beep output 



(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 



(2) ENTRY POINT: 



(3) 



BEEPOT 

4A18H (ROM:JAP ver 1.1) 
4A18H (ROM:USA ver 1.0a) 
4A18H (ROM:PAL ver 1.0) 
016BH (Disk ver l.Op) 
016BH (Disk ver l.Oj) 

PURPOSE OF THIS PROGRAM: 

To output a beep. 

(4) INPUT DATA: A = Control 

( = 0) Turn beep off 
(=1) Turn 1760-Hzon 
( = 2) Turn 1760-Hzon for 
125 msec, then turn it off 
( = 3) Turn on consecutive 
beeps of 880 Hz, 1760 Hz, 
880 Hz and 1760-Hz, each 
for 62 msec, then turn beep 
off 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER 

CHANGES: None 

(8) FLAG CHANGES: None 
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One-line key entry 


Cassette tape input/output time delay 


(Common to al ROM Disk versions) 


(Common to all ROM and Disk versions) 


(1) NAME OF LABEL: INKEYL 


(1) NAME OF LABEL: CDELAY 


(2) ENTRY POINT: 4A48H (ROM: JAP ver 1.1) 


(2) ENTRY POINT: 3A03H (ROM JAP ver 1.1) 


4A48H (ROM-.USA ver 1.0a) 


3A03H (ROM: USA ver 1.0a) 


4A48H (ROM PAL ver 1.0) 


3A03H (ROM: PAL ver 1.0) 


016EH (Disk ver l.Op) 


0177H (Disk ver l.Op) 


016EH (Disk ver l.Oj) 


0177H (Disk ver l.Oj) 


(3) PURPOSE OF THIS PROGRAM: 


(3) PURPOSE OF THIS PROGRAM: 


To receive one line of key entry. 


To delav the time of cassette tape input/output 


(4) INPUT DATA: None 


(4) INPUT DATA: C = Delay time 


(5) OUTPUT DATA: [KEYBUF] 256 = Key entry 


Delay time = 53 + (14*C) states 


image (oDH for final code) 


State = 279.365 nsec 


DE = KEYBUF (beginning 


(5) OUTPUT DATA: None 


address) 


(6) CALLING SEQUENCE: 


(6) CALLING SEQUENCE: 


Called by CALL instruction 


Called by CALL instruction 


(7) REGISTER CHANGES:None 


(7) REGISTER CHANGES:DE 


(8) FLAG CHANGES: AH 


(8) FLAG CHANGES: None 




One byte read from cassette tape 






(Common to all ROM and Disk versions) 


Cassette tape input scan 




(Common to all ROM and Disk versions) 


(1) NAME OF LABEL: BYTERD 




(2) ENTRY POINT: 3A06H (ROM: JAP ver 1.1) 


(1) NAME OF LABEL: WVSCAN 


3Ao6H (ROM: USA ver 1.0a) 


(2) ENTRY POINT: 39FDH (ROM: JAP ver 1.1) 


3A06H (ROM:PAL ver 1.0) 


39FDH (ROM:USA ver 1.0a) 


017AH (Disk ver l.Op) 


39FDH (ROM:PAL ver 1.0) 


017AH (Disk ver l.Oj) 


0171 H (Disk ver l.Op) 


(3) PURPOSE OF THIS PROGRAM: 


0171H (Disk ver l.Oj) 


To read one byte of data recorded on cassette tape. 


(3) PURPOSE OF THIS PROGRAM: 


(4) INPUT DATA: None 


To count the time elapsed until the input waveform from 


(5) OUTPUT DATA: A = Read data 


cassette tape changes. 


(6) CALLING SEQUENCE: 


(4) INPUT DATA: D = Previous waveform 


Called by CALL instruction 


input (MSB) 


(7) REGISTER CHANGES:A 


C = Counter value 


(8) FLAG CHANGES: AH 


(5) OUTPUT DATA: D - Current waveform input 

C = Counter value 






(6) CALLING SEQUENCE: 




Called by CALL instruction 


One bit write to cassette tape 


(7) REGISTER CHANGES:A. D. C 


(Common to all ROM and Disk versions) 


(8) FLAG CHANGES: All 






(1) NAME OF LABEL: ONE OUT ("1" output) 

ZEROUT ("0" output) 






(2) ENTRY POINT: ONEOUT 




3A09H (ROM:JAP ver 1.1) 


Cassette tape leader field find 


3A09H (ROM USA ver 1.0a) 


(Common to all ROM and Disk versions) 


3A09H (ROM:PAL ver 1.0) 




017DH (Disk ver l.Op) 


(1) NAME OF LABEL: LEADSR 


017DH (Disk ver l.Oj) 


(2) ENTRY POINT: 3A00H (ROM:JAP ver 1.1) 


ZEROUT 


3A00H (ROM:USA ver 1.0a) 


3A0CH (ROM: JAP ver 1.1) 


3A00H (ROM:PAL ver 1.0) 


3A0CH (ROM:USA ver 1.0a) 


0174H (Disk ver l.Op) 


3A0Ch (ROM: PAL ver 1.0) 


0174H (Disk ver l.Oj) 


0180H (Disk ver l.Op) 


(3) PURPOSE OF THIS PROGRAM: 


0180H (Disk ver l.Oj) 


To find the leader field recorded on cassette tape. Upon 


(3) PURPOSE OF THIS PROGRAM: 


finding it. control returns from this routine. 


To record one bit on cassette tape. 


(4) INPUT DATA: None 


(4) INPUT DATA: C = Delay time 


(5) OUTPUT DATA: None 


(5) OUTPUT DATA: None 


(6) CALLING SEQUENCE: 


(6) CALLING SEQUENCE: 


Called by CALL instruction 


Called by CALL instruction 


(7) REGISTER CHANGES:A 


(7) REGISTER CHANGES:A. C 


(8) FLAG CHANGES: All 


(8) FLAG CHANGES: All 



Leader field write to cassette tape 

(Common to all ROM and Disk versions) 



(1) 
(2) 



(3) 



NAME OF LABEL: 
ENTRY POINT: 



LEADWR 

3A0FH (ROM:JAP ver 1.1) 
3A0FH (ROM:USA ver 1.0a) 
3A0FH (ROM:PAL ver 1.0) 
0183H (Disk ver l.Op) 
0183H (Disk ver l.Oj) 
PURPOSE OF THIS PROGRAM: 
To write a leader field onto cassette tape. 

(4) INPUT DATA: None 

(5) OUTPUT DATA: None 

(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER CHANGES:None 

(8) FLAG CHANGES: None 



One byte write to cassette tape 

(Common to all ROM and Disk versions) 



(1) NAME OF LABEL: 

(2) ENTRY POINT: 



BYTEWR 

3A12H (ROM:JAP ver 1.1) 
3A12H (ROM:USA ver 1.0a) 
3A12H (ROM:PAL ver 1.0) 
0186H (Disk ver l.Op) 
0186H (Disk ver l.Oj) 

(3) PURPOSE OF THIS PROGRAM. 

To write one byte of data onto cassette tape 

(4) INPUT DATA: A = Data to be written 

C = Delay 

(5) OUTPUT DATA: None 



(6) CALLING SEQUENCE: 
Called by CALL instruction 

(7) REGISTER CHANGES:None 

(8) FLAG CHANGES: None 

(9) SETTING TIME DELAY PARAMETER C: 

The value of parameter C to be inputted is determined as 
follows: 

[For input after call of LEADWR routine] 
C = (1168 - Sl)/14 

Where SI denotes the number of statements executed after 
the LEADWR routine is called, excepting the CALL instruc- 
tion execute stage. 

[For input after call of BYTEWR routine) 
C = (1203 - S2)/14 

Where S2 denotes the number of statements executed after 
the BYTEWR routine is called, excepting the CALL instruc- 
tion execute state. 



CALL 

CALL 

LD 
CALL 


LEADWR 

C. - 
3YTEWR 

C, -- 
BYTEWR 




1 
SI s 




S2s 

1 





REVIEW 



The House! 



- disk only 



At last, the classic machine code graphic adventure game is available on disc! You take the part of the intrepid 
adventurer. Siddy Spuerspook, who is out to explore nearly 300 rooms of The House, and hopefully murder 
Vanessa Ze Vampire in the meantime! But as with many games, this is not as easy as it seems, as Vanessa has 
many allies, called yes you guessed it. Purple People Eaters! The worst things since mouldy bread, these monsters 
are quite good at murdering people for no apparent reason! They are just very violent in the extreme! 

The object of the game, as already mentioned is to try and get hold of Vanessa Ze Vampire, and hopefully killing 
her, but this is only possible after you have found a crucifix, and The House has only one!!! 
The game is quite complex and is fun to play, and is streaked with a mean sense of humour ... If you have 
a disc drive . . . then buy this game!! 

It is available for $39.95 on disc 
from: 

User Tronics Developments Ltd 
P.O. Box 29124 
Greenwoods Corner 
Epsom , 

Auckland 3 

Please make cheques/ MO payable 
to M. Howard 






Hill St. Blues the theme music ^_ rr 

n r====n mr=^==inr=^=^nr==^=]a[^^=ia[^^=lBC^^=3Bt^^=]B[^^=10i===ja 



If, like me, you don't really like Hill St. Blues, but love the music, then this program is for you... 

To use it, just type it in and then type RUN ... and just sit back and listen to the brilliant rendition of the music 

we all know so well. 

1 O CLS s CURSOR S, 1 Oa PR] !IM T "Hi I 1 S ii t~ €2* e* -fc 13 1 
ues " 

2 V = = 1*1== 1 

3 O R O R I ■* 1. T O 2 4 

40 READ T X , T2, T3 9 DE 

SO SOUND 1 , Tl , V = SOUND 2 , I 2 , Va SOUND 3, T3 , 

V = F="OR D— 1. TO DE = IME X T ii > 

£> O NEXT I 

70 RES T O R E£ 2 1 O 

OO RQR 1 = 1 TO 57 

?0 REE AD T 1 , T2 , T3 , DE 

1 OO SOUND 1 , Tl s, Va SOUND 2, I 2 , V is SOUND 3, T3 

, V= ROR D=l TO DE: NET> I D 

1 1 O N F£ X T 1 

ISO IF" Ml «=• 2 THE N C3 O T O 3 4 * .> 

130 M=2: GO T O 7 O 

1 4 DATA 392 j. 4 6 6 , 622 * 1 OO , 34 9, 466, SO "7 , SO, 
392, 4<b£», 62 2 „ 1 60 ;, 2:OOCh:j ., ■ • .. nOO , 2 OOOO , lO 

1 SO DATA 392 , 4 66 , 622 , 1 OO , ? , 4 66 , 587 , SO , 

392,466, 622, 1 60 , 2 O O O O , 2 C » C » O •■ - > , 2 O O O O , 1 O 

1 6 DATA 392 , 466 , 622 , 1 < >0 , 3 49 , 466 , SO 7 , SO , 

3 *P 2 , 4 6 6, 622, 1 .2 O 

170 DAT' A 349, 20000 , SO 7 , L2< , >4 "' ".- 1, , 20000 , S23 

, 12 O, 349, 20000 , SO 7 , 1 90 

1 OO DATA 1 96 , I " £ 2,3 1 1. , 0< * 9 \ 7" S , 2 3 3 , 294 , 60 , 1 
S6 , 200, 262, 200 

190 DATA 262* 3 1 1 , 392, OO , : !94 , 349, 60 , 2 

O O , 2 6 2, 31 1 , 2 O O 

200 DATA 31 1 , 392, S23 Si ', ' .- h 4 ..., 549, 466, 60 , 2 

6 2, 31 1 , 4 1 S , 2 O O , 2 O O , 2 6 2 , 3 1 1 , 2 O < - * 

2 1 O DATA 392 , 4 66 , 622 , I. OO , 3 «3 " ? , •■"!! 66 , S07 , SO , 
392, -0-66, 622, L60, 20< m m n , 20000 , 2 OOOO , J" k 

2 20 DATA 392 , 4 66 , 6 : .'• 2 , t OO , ' S ** •'? , 4 66 , SS7 , SO , 

3*7*2, 466, 622, 160, 20000 , 20000 , 20000 , lO 

2 3 o" DATA 392, 466, 6 : :2 , 3 OO , 349 r 466, SO "7 , SO, 

392 , 4 6 6, 6 2 2 , 1 O O 

24 O DATA 349, 20000 , SO •"' , 40 , 349, 20000 , S23 , 

4 , 3-4 9, 2 000, S07 , 40 

2 S O D A T A 3 9 2 , 4 6 6 , 6 2 2 , 1 O O , 3 4 9 , ■'! 6 6 , S O 7 , S O , 
392, 466, 622, 1 60 , 20000, 20000 , 20000 , lO 
260 DATA 523, 622, 7Q4, lOO, 2O0OO , 20000 , 6 90 
, SO, 4 1 S , S23 , 62 2, 90 , 20000 , 20000 , S87 , SO 

270 DATA 20000 , 4 1 S, S: 3, 4< >, 20000 , 20000 , SO 

7 , 4 , 392 , 466 , 622 , I OO , !> 'I *? ... 4 66 , SO "7 , SO 
2 SO DATA ":>S»2, 466, 622, 200 

29 O DATA 349, 4 4>0 , S23 , 1 OO , 20000 , 20 00 , SO ~7 

, SO , 3 4*5'' , S23 , 622 , 1 OO , 20000 , 20000 , S23 , 40 , 2 
OOOO, 20000 , SOT/'', 40 , 20000, 20 OOO, 622, 40 
30 DATA 466, 622, "7 04, 1 OO , 2 OOOO , 2 OOOO , <!b9 
, 40, 49 4, 622, 784 , 7 S , 20000, ^H*J>*:>^:><^ , s 69 S , 40, 2 
OOO, 2 OOOO , 622, 40 , 2 OOOO , 2 OOOO , 69S , 40 

3 10" DATA 6S9* 784 VI ,4 047 « 1 OO , 2 OOOO- , 20000 , 9 3 
2, SO, SS4, 6S9 , QOO> ?f"S , 20000 , 2 OOOO , S54 , lO, 2 
O O O O , 2 O O O O , 2 O O O O , 2 , 2 O * > O O , 2 O O O O , S S 4,1 O , 2 O 
OOO , 2 OOOO , 6S9 , 1 O 

3 20 DATA 20000 , 20000 , ~7i J 4 , SO, 2 OOOO , 7 40, OO 
O, OS, 20000 , 6S9 , 784, OS, 20000, S O 7 , 74 O, ISO 
3 30 DATA 196, 233, 294, SO, 1 96 , 262, 3 1 1 , 60 , 1 

31 



<=p^y„ 2S>-3- .. 349 p 1 <S»0 gi 20000* 20000, 20000, 2 * 208 , 2 
A 2 m 3 1 1 !. SO 9 20S , 3 X I , 3*^2 .. £>0 s. 2CJ'8 * 2*?-** s 3 ^ *? , 1 <£>0 

3 ^ O R E S X O R E ■"*■ 3 < > 
350 FOR 1=3. TO -'4 
360 RE*=*E> T 1 , T2, T3 S DE 

370 SOUND i,Tl, V = SOUND 2 „ T2 s V :: SOU MO 3, T3 

,V:FOR D== 1 JO DE;i NE.XT D 

3 SO NEXT I 

390 F=" O R I = S T O O S I E F " 1 

4frOO SOUND X 9 1 <r ?'t^ .. I s SOUND 

311, I = FOFv r> --=■-■ 1 "TO 75: I'^ILXT 

4 1 O NEXT I 

4 2 O END 

430 D^nr»^ i *5»<£> , 23 s . 3 a x , i oo s i 7"5 » 2 33 , 2< z '-1 9 <e»o , 

196, 233, 31 1 „ 1 40 -. 1 75 , 2 3 3 , 2 «^ -=*■ ,. £>0 



D 



S O UP N D 



3 V 



|^i ! W« 



V 2 * 



5,#«.V Quicksort ^f'J&i 

'4« 



jL«U« '£$"»* o £ M Howard ,/>* * *V""" 






<*?'* 



Every once in a while you may wish to sort some data into alphabetical or numerical order. Well that's fine, 
but the major problem is that many people use a method known as "Bubble Sorting" . . and the problem with 
bubble sorting is that it is exceedingly slow. This program called "Quicksort" is just that . . . quick!!! I'm not going 
to explain how it workds because it is quite complex . . . just take it from me ... it works and works very well!! 

NOTES 

1) Lines 10-70 set up an array of random numbers. Call the routine at line 1000 onwards then print 
out the sorted array. 

2) Data in the array starts at location 1 ie; no 
eg; a(l),a(2),a(3) ... a (30) 

NOT a(0),a(l),a(3) . . . a (30) 

3) The variable N holds the number of data elements to be sorted in the array. In this case 
set to 30. 

4) The actual quicksort starts at line 1000. 

5) The speed of a bubble sort, sorting 50 random numbers is 1 min 16 seconds. The speed 



it is 



of 



IO DIM! t=* < 30 > 




2 E O R C ~ X "TO 3 O s £* < C > 


« X NT € RND < S 


EXT C 






30 N = 


3 OrGOSUB 1 O O O 




4*0 F="OR G== 1 TO 30 




SO RR I NTrf^ < O > 




60 NEXT 




70 SOTO ~7<L> 




1 OOO 


M=40 = D I MSL < M > , SR 


(M) 


1 O 1 O 


S= 1 = SL_ < X > = 1 s SR < 1 


> ==N 


1 020 


l_ = Sl_ CS> = R = SR <S> = 


B«S- X 


1 030 


I =L_ = JT—R = X =^ C I NT < 


C U.HHR > /2 > > 


1 040 


I E *=* < I > < X T HENI = I ■+■ 


X = SOI O X 040 


1 oso 


IFX<A < J > THENJ = J — 


1 s S O T O 1 O 5 O 


1 O 4±> O 


I E I >J THEN 1 OSO 




1070 


UJ = I G| <l> =«c*CI> =iPi < J > 


= ^<JJ>=UJs I = 


1 OSO 


I E I < =JTHEN 1 040 




10^0 


I E I > = RTHEN 1 1 X O 




1 1 


S = S-+- 1 s SL <S> = I = SR 


< S > ==R 


1 1 1 


R==CF 




1 1 20 


IEI_<RTHENJL O 3 O 




113 O 


I E S < > O T M E N 1 O 2 O 




1 1 4 O 


R E T U R N 





> -w- X OOO > = N 



I + X = J =J — X 




The Fuel for thousands of Sega Users up and down the country 
No serious Sega owner should be without 

The complete range of the official Sega User Club magazines. 

Are you missing any? 







